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CORRELATIONS  OF  THEORETICAL  AND  EXPERIMENTAL 
DATA  FOR  HIGHWAY  BRIDGES 

I.  Introduction 

1.  Subject 

This  report  covers  the  investigation  of  the  use  of  a  computer 
programmed  analytical  routine  entitled,  "SSAP2",  to  predict  displace- 
ments, forces,  and  moments  for  straight  and  skew  highway  bridges.   The 
report  also  compares  selected  portions  of  furnished  experimental  data 
for  the  bridges  with  results  of  the  theoretical  analysis,  in  which  the 
bridge  span  is  idealized  as  a  grid  system.   An  additional  objective  is 
to  describe  the  SSAP2  program  in  sufficient  detail  so  that  a  reader, 
uninitiated  in  finite  element  analysis,  would  be  able  to  understand  how 
the  program  statements  of  SSAP2  relate  to  the  finite  element  analysis 
theory. 

2.  Background  and  Previous  Investigation 

In  1969  and  1970,  four  typical  two-lane,  continuous -span 
medium-length  girder  and  slab  highway  bridges  in  Tennessee  were  exten- 
sively instrumented;  and  considerable  strain  and  displacement  data  were 
obtained  at  critical  points  on  each  structure  under  a  static  loading 
and  under  the  controlled  passage  of  a  very  heavy  vehicle  of  known  weight, 
The  four  types  of  bridges  tested  were: 

1.  A  four-span  continuous  steel  beam  structure  with  composite 
deck  action. 

2.  A  simple  span  prestressed  concrete  beam  structure. 

3.  A  simple  beam  reinforced  concrete  T-beam  structure. 
A.   A  three-span  continuous  steel  beam  structure  with  a 

non-composite  deck  action. 


(1) 


*   Superscript  numbers  in  parenthesis  (  )  refer  to  references  in  Appendix  D, 


The  tests  were  under  the  guidance  of  a  Technical  Advisory  Panel 
(TAP)  consisting  of  representatives  from  the  Tennessee  Department  of 
Highways,  the  Federal  Highway  Administration,  the  Tennessee  Valley 
Authority,  and  the  University  of  Tennessee.  All  bridges  were  located 
near  Winchester,  Tennessee.   The  three  Tennessee  State  highway  bridges 
and  one  county  highway  bridge  were  located  in  an  area  to  be  inundated 
as  a  part  of  the  Tennessee  Valley  Authority  Tims  Ford  Reservoir.  Prior 
to  inundation,  research  personnel  from  the  University  of  Tennessee 
instrumented  the  bridges  and  tested  them  first  in  dynamic  loading,  and 
finally  static  loading  to  failure.   The  static  loading  tests  serve  as 
the  primary  source  of  background  information  for  the  research  of  this 
report.   The  Federal  Highway  Administration  also  furnished  the  author 
selected  sheets  of  construction  drawings  of  each  of  the  bridges,  which 
are  shown  in  miniature  form  in  Appendix  E. 

Each  of  the  four  bridges  was  a  two-lane  deck  girder  bridge  with 

four  longitudinal  girders.   A  description  of  the  bridges  is  given  in 

(2) 
Table  1    and  photographs  of  the  bridges  are  shown  in  Figures  1  through 

4.   Schematic  cross-sections  of  each  bridge  are  shown  in  Figures  5  and 

6.»> 


3.   Loading 


The  primary  purpose  of  the  static  tests  was  to  determine  the 
ultimate  capacity  and  mode  of  failure  of  each  of  the  four  bridges.   The 
loads  were  placed  on  each  bridge  with  the  exception  of  bridge  #4  and  the 
test  of  one  span  of  bridge  #2,  in  such  a  way  as  to  simulate  an  HS  truck 
in  each  lane  located  in  the  approximate  position  to  cause  maximum  posi- 
tive moment  near  the  center  of  the  span.   Some  of  the  loading  was  done 
by  means  of  pallets  of  concrete  blocks.   Other  loadings  were  done  through 
a  series  of  #18  reinforcing  bars  connecting  a  "Rock  Anchor  System"  to  a 
bearing  grill  on  the  bridge  deck.   The  reinforcing  bars  were  spliced 
below  the  bridge  deck  with  a  connection,  accommodating  a  1  3/8"  diameter 
Stressteel  bar  for  the  purpose  of  measuring  load.   Full  details  of  the 
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(a)  Bridge  #1 


(b)  Bridge  #2 


Fig.  1  -  PHOTOGRAPHS  OF  BRIDGES  #1  AND  #2 


(a)  Bridge  #2 


(b)  Bridge  #3 


Fig.  2  -  PHOTOGRAPHS  OF  BRIDGES  #2  AND  #3 
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Fig.     3    -    PHOTOGRAPHS    OF   BRIDGE    #3 
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(a) 


(b) 


Fig.    4    -   PHOTOGRAPHS   OF   BRIDGE    #4 


loading  system  and  loading  procedure  can  be  found  in  reference  (1) . 


Figures  7  through  10  show  the  location  of  the  loading  points  for  the 

dgei 
(5) 


(4) 
four  bridges,    while  Table  2  through  5  show  the  magnitude  of 


loading. 

4.  Material  Property  Tests 

In  order  to  calculate  the  theoretical  behavior  of  the  four 
bridges,  it  was  necessary  to  obtain  stress  strain  relationships 
for  the  steel  and  concrete  used  in  each  bridge.  During  the  experi- 
mental testing,  steel  tension  coupons  were  cut  from  girder  webs  for 
bridges  #1  and  #4;  and  with  these  the  stress  strain  diagrams  shown  in 
Figure  11    were  obtained.  Figure  12    shows  a  stress  strain  diagram 
for  one  of  the  samples  of  girder  longitudinal  reinforcing  bars  from 
bridge  #3.   Four- inch  diameter  concrete  cores  were  taken  from  each 

bridge  deck  for  determining  compressive  strengths.   The  compressive 

(8) 
strengths  listed  in  Table  6    were  corrected  to  be  valid  for  test 

cylinders  with  a  diameter  of  1/2  the  height.   Cores  were  also  taken  from 

the  precast,  prestressed  girders  of  bridge  #2.  Ten  specimens  were  taken 

and  the  test  results  are  listed  as  follows: 

Minimum  Compressive  Strength  7,600  psi 
Maximum  Compressive  Strength  10,300  psi 
Average  Compressive  Strength     8,700  psi 

5.  Deflection  Measurement 

Deflectometers  were  used  to  measure  deflections  for  both  dynamic 
and  static  loading  of  the  bridges.   Reference  (1)  contains  a  detailed 
discussion  of  the  method  of  measurement. 
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(b)     BRIDGE  2  .  SECTION  A-A 
FIGURE  5.     CROSS-SECTIONS  OF  BRIDGES  1  AND  2. 
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TABLE   2 

LOAD  DISTRIBUTION  COEFFICIENTS  -  BRIDGE  1 
STATIC  LOAD  TESTS 


5-4  \     er 


5-4-~_\       6' 


5-  •* 


T     I     I      I 
o     ©     ®     © 


z^F3 


Load  At 
Each  Point 
(kios) 

Total  Load 

On  Bridge 

(ki ns) 

Ratio 
1 

of  Bendinq 
2 

^yIorr•.ent  (c/,) 
3 

4 

12 

96 

18 

29 

30 

23 

32 

256 

20 

29 

29 

22 

54 

432 

20 

26 

29 

25 

67 

536 

20 

2  7 

29 

24 

81 

643 

20 

27 

30 

23 

87 

696 

20 

28 

30 

22 

99 

792 

21 

29 

30 

20 

T-^pi_r   3 


LOAD  DISTRIBUTION  COEFFICIENTS 
STATIC  LOAD  TESTS 


BRIDGE  2 


Load  At 

Total  Load 

Each  Point 

On  Bridge 

(kips) 

(kips) 

15 

120 

34 

370 

54 

430 

75 

601 

96 

765 

101 

810 

117 

936 

119 

950 

142 

1138 

14 


TARJX     4 

LOAD  D1STRMUTION  COIirriCfKNTS  -  BRIDGE  3 
STATIC  LOAD  TESTS 


4'  \        &'       |    4' 


r^    . 
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i    L 

1     1 

r->~.             1 1 
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1 

1 
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6-IO" 

«'-  10" 
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Load  At 

Total  Load 

Each  Point 

Oa  Bridge 

B 

atio 

of  Bending 

Moment  (7-,) 

(kips) 

(kiDs) 

Interior  G 

irdors 

Exterior  Girders 

17.6 

141 

60 

40 

48.9 

391 

57 

43 

61.5 

492 

54 

46 

71.0 

567 

56 

44 

80.0 

640 

56 

44 

95.3 

762 

56 

44 

105.2 

845 

57 

43 

118.1 

947 

58 

42 

Note:   Loads  Compiled  from  Figures  42  through  45. 


TABLE  5 

LOAD  DISTRIBUTION  COEFFICIENTS  -  BRIDGE  4 
STATIC  LOAD  TESTS 
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Location 

Load  At 
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Total  Load 

On  Bridge 

(kips) 

Ratio 
1 

of  Bcndinq  Moment  (%) 
2              3              4 

A,  B. 

28 

56 

38 

34 

22 

6 

A,  B, 
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37 

34 

22 
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C,  D,  E, 
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39 
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59 

236 
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36 

36 
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D 

28 

112 
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28 

29 

21 

A,  B,  C, 
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59 
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22 

28 

29 

21 

All 

16 

96 

20 

28 

24 

28 

All 

28 

168 

19 

29 

26 

26 

All 

38 
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20 

28 

26 

26 

All 

49 

294 

20 

28 

26 

26 

All 
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28 

25 

26 
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II.  Computer  Analysis  of  Bridge  #1 

1 .  Description 

Bridge  #1  is  a  four-span  continuous  composite  steel  girder  concrete 
deck  bridge  built  in  1963,  on  State  Route  130  over  the  Elk  River.  Figures 
E-2  through  E-5  show  details  of  the  bridge  reduced  from  drawings  made  by 
the  Department  of  Highways,  State  of  Tennessee.   Design  specifications 
were  in  accordance  with  the  1961  AASHO  specifications,  and  the  loading 
was  H20-S16-44. 

2.  Computer  Data 

Bridge  #1  was  evaluated  by  several  modeling  procedures  using  the 
SSAP2  computer  program.   The  most  promising  results  taking  into  account 
computer  costs,  were  obtained  by  using  the  beam  element  for  the  steel 
stringers,  slave  connected  to  quadrilateral  plate-shell  elements  for  the 
concrete  slab.   The  computer  input  data  for  this  arrangement  will  be 
described  in  detail  to  familiarize  the  reader  with  SSAP2,  after  which  the 
results  of  the  several  modeling  procedures  will  be  discussed. 

Prior  to  filling  in  the  input  data  on  standard  Fortran  form  sheets, 
it  was  found  convenient  to  prepare  a  special  schematic  form  sheet  for 
inputing  all  bridge  node  numbering  and  coordinate  data.   Figure  13  shows 
this  form  sheet  data  arrangement  for  bridge  #1  with  respect  to  node  num- 
bering and  coordinate  location  of  nodes.   A  total  of  230  nodes  were  used. 
Figure  14  shows  the  beam  element  numbering  for  the  girders,  while  Figure 
15  shows  the  plate  element  numbering  for  the  deck.  Unless  the  difference 
in  node  numbers  for  each  element  is  kept  as  small  as  possible  the  cost 
per  computer  run  can  be  excessive. 

3.  Modulus  of  Elasticity 

For  the  steel  girders  from  Figure  11  the  Modulus  of  Elasticity  is: 

E  =  31.4  ksi  x  103 
s 

v  is  assumed  as  .27 


*now  AASHTO 
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Since  all  data  for  the  computer  must  be  in  units  of  kips  and  feet: 


E   =  31,400  x  144  =  4,521,600  kips/sq.  ft. 

5 


From  Table  6  the  average  f *  for  the  concrete  =  6,870  psi. 
Using  the  ACI  formula  for  Modulus  of  Elasticity: 

E  =  57,500  x  /  f ' 


57,500    /  r   a^n 
=  T^TT  x  »  6,870 
1,000 


-  4766.75  psi  x  10' 
=  4766.75  x  144 
=  686,412  ksf 


Poisson's  ratio  v  of  0.15  was  assumed  for  the  concrete. 

In  the  shell  element  the  plane  stress,  stress-strain  matrix  is 
used  as  follows: 


r         "j 

E 
l-v2 

EV 
l-v2 

0 

X 

EV 

l-v2 

E 
l-v2 

0 

c 
y 

0 

0 

E 

>. 

2(l+v) 

- 

Concrete : 


l-v 


686412 
1-.152 


686412 
.1775 


=   702211.76  = 


XX     yy 


EV\ 

l-v 


=   702211. 76(. 15)   =   105331.76 


=  C 


xy 


686412 


2(l+v)     2(1.15) 


=   298440 


=  G 


xy 
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Steel: 

E       4521600     4521600 


4877143.7  -  C   -  C 


1-V2      1-.272      *9271  **    yy 

Fv) 

-— r  =  4877143. 7(. 27)  «=  1316828.7  -  C 

1-v2  «y 

E      4521600     1780157.4  BG 


2(l+v)  2(1.27)  -•  —  '-  ^ 

4.  Elevation  Geometry 

Finished  grade  elevations  were  interpolated  from  the  grade  sketch 
shovm  on  Figure  E-l  from  Station  7+35  to  Station  19+25  using  a  vertical 
parabolic  curve  program  routine  on  a  Hewlett-Packard  Model  9100B  calcu- 
lator.  Using  Figure  16  and  on  the  basis  that  the  elevation  of  node  1 
was  referenced  0  elevation,  the  remaining  elevations  of  Figure  13  were  so 
determined.  At  the  time  the  author  prepared  the  data,  the  elevations  were 
carried  to  three  significant  decimal  places.  However,  upon  sober  reflection, 
the  author  would  recommend  coordinate  data  be  carried  to  only  one  signifi- 
cant figure  beyond  the  decimal  point. 

5.  Moments  of  Inertia 

Using  the  steel  handbook  the  bending  and  torsional  moments  of  inertia 
were  determined  as  shown  in  Figure  17. 

6.  Input  Listing 

Figure  18  shows  the  input  data  for  bridge  #1  in  accordance  with  the 
User's  Manual  described  in  Appendix  B.  For  the  convenience  of  a  reader 
unfamiliar  with  the  SSAP2  program,  the  top  and  bottom  guides  show  the 
column  location  of  numbers  on  the  computer  cards. 
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1.874' 


FIG.  16  -  BASIC  GEOMETRY  FOR  CROSS  SECTION  OF  BRIDGE  #1 


Since  the  boundary  condition  codes  were  used  in  the  beam  nodes 
at  the  bridge  supports  to  slave  the  beam  to  the  deck  with  a  rigid 
link,  the  boundary  condition  codes  for  the  corresponding  deck  nodes 
were  used  to  specify  the  bearing  support  conditions  for  the  bridge. 

End  release  codes  (pages  34  and  B-ll)  were  used  for  the  diaphragms 
at  the  exterior  girder  to  reduce  the  diaphragm  end  moment  to  zero, 
because  there  is  little  torsional  restraint  afforded  by  the  longitudinal 
girders. 


7.   Output 


Figure  19  is  a  listing  of  the  output  data  for  bridge  #1.   Total  CPU 
solution  time  on  a  CDC  6400  computer  was  126.97  seconds. 
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W  36x160 
t^ 


Let  c  -  1728  x  12     d  ?   144 

I  -  9760/c  -  .470679  ft 
x 

I  -  295/c  ■»  .014226 

y 

J  =  12.4/c  -   .000597 


1.02" 


.653" 


•f  w 

Shear  web  area  =  .653  (36)  /d  -  .16325  In' 
Total  area  -  47.1/d  -  .327083 


W  36x170 


,10.5  x  1 
cover 


W  36x160 


,10.5  x  1 
cover 


I  -  10500/c  =  .506365 
x  I  =  320/c  =  .015432 
y  J  -   15.1/c  =  .000728 

t  -  1.1       t  -  .68 

Shear  area  =  ?68  (1.1)  /d 


Total  area  -  50/d 


I   (covers)  =  2  (10.5)  (1)  (18.5)' 


.170755 
.347222 

7187 
9760 


I  -  16947/c  -  .817286  _  16947 

I   (covers)  =  2  (1)  (10.5)-i/12  -  192.94 
y  295 


487.94 


I  -   487.94/c  =  .023531 
J  (covers  @  at3/3  =  2  (10.5)  (l)3/3  ■  7.000 


where  a  is  cover  area 
J  =  19.4/d  =  .000935 


12.4 
19.4 


W  36x170 


^-^> 


By  similar  reasoning  to  above: 

I  -  .855977        I  =  .024736 
x  J  =  .001065       y 
Shear  area  =  .1802 

Total  area  =>  .493055 


[18x42.7 


I  -  .026716 
X  I  -  .000392 
y  J  -  .000048 

Shear  area  =  .05625 
Total  area  =  .0875 


[ 


[15x33.9 


I     -   .01519 
x  I     =   .000392 
y  J  -   .000048 

Shear  area  ■   .041666 

Total  area  -   .069166 


NOTE:      All   calculations   carried  to   6   significant   figures  on  a  hand 

electronic  calculator.      In  retrospect,    such  accuracy  probably 
unwarranted. 


FIG.    17  -  MOMENTS   OF   INERTIA  CALCULATION^  FOR  STRINGERS  AND  DIAPHRAGMS, 

BRIDGE   #1 
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32 

32 

32 

32 

32 

32 

bl.000 

29.749 
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52 
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1.151 

54 
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21.416 
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54 

54 

54 

54 

54 

54 

79.000 

21.416 

1.151 

56 

79.000 

13.083 

3.025 

57 

5b 

56 

56 

56 

5b 

56 

79.000 

13.083 

1.151 

58 

79.000 

4.750 

3.025 

59 

58 

58 

58 

58 

58 

58 

79.000 

4.750 

1.151 

60 

79.000 

0.000 

3.025 

61 

92.500 

34.500 

3.300 

62 

92.500 

29.749 

3.300 

63 

62 

62 

62 

62 

62 

62 

92.500 

29.749 

1  .426 

64 

92.500 

21  .416 

3.300 

65 

64 

64 

64 

b4 

64 

64 

92.500 

21.41b 

1  .426 

66 

92.500 

13.083 

3.300 

67 

bb 

6b 

bb 

bb 

6b 

bb 

92.500 

13.083 

1.426 

68 

92.500 

4.750 

3.300 

69 

68 

68 

6B 

6P 

68 

68 

92.500 

4.750 

1  .426 

70 

92.500 

0.000 

3.300 

FIG.   18  -  INPUT  LISTING  FOR  BRIDGE  #1 
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104.000 

34.500 

3.553 

72 
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29.749 

3.553 

73 
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72 

72 
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72 

104.000 

29.749 

1.679 
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21  .41b 

3.553 

75 

74 

74 

74 

74 

74 

74 

104.000 

21  .416 

1.679 

76 

104.000 

13.033 

3.553 

77 

76 

76 

76 

76 

76 

76 

104.000 

13.083 

1.679 

78 

104.000 

4.750 

3.553 

79 

78 

78 

78 

7e 

78 

78 

104.000 

4.750 

1.679 

80 

104.000 

0.000 

3.553 

81 

115.000 

34.500 

3.811 

82 

115.300 

29.749 

3.811 

83 

82 

82 

82 

82 

82 

82 

115.000 

29.749 

1.937 

84 

115.000 

21  .416 

3.611 

85 

84 

84 

84 

84 

84 

84 

115.000 

21.416 

1.937 

86 

115.000 

13.083 

3.811 

87 

8b 

8b 

86 

86 

8b 

8b 

115.000 

13.083 

1.937 

88 

115.000 

4.750 

3.811 

89 

68 

88 

88 

88 

88 

88 

115.300 

4.750 

1.937 

90 

115.000 

0.000 

3.611 

91 

118.000 

34.500 

3.883 

92 

118.000 

29.749 

3.863 

93 

92 

92 

92 

92 
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.NODE  DISPLACEMENTS  AND  ROTATIONS 
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0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

74           ] 

6. 5640-03 

7.7450-05 

-1.369D-01 

1. 300-03 

2.150-03 

-1.33D-05 

73            1 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

72            ] 

6.1170-03 

2.0910-04 

-1.2110-01 

2.060-03 

1.8  70-03 

2.53D-07 

71            1 

5.8200-03 

2.7320-04 

-1.1280-01 

3.870-03 

1.870-03 

-9.77D-02 

70            1 

5.9940-03 

-6.3430-05 

-8.3340-02 

-4.160-03 

3.290-03 

1.54D-01 

69            ] 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

68            J 

6.2750-OJ 

-2.4370-05 

-8. 7460-02 

-7.880-04 

3.330-03 

-2.670-04 

67            J 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 
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66 

l         6.6320-03 

1.0290-05 

-9.603D-02 

-4.100-04 

3.840-03 

-1.770-04 

65 

L         0.0 

0.0 

o.c 

0.0 

0.0 

0.0 

64 

L         6.6320-03 

-9.9770-06 

-9.6030-02 

4.100-04 

3. 840-03 

1.780-04 

63 

L         0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

62           1 

I         6.2750-03 

2.469D-05 

-8.7460-02 

7.880-04 

3.330-03 

2.670-04 

61           1 

L         5.9940-03 

6.3750-05 

-8.3340-02 

4.160-03 

3.29D-03 

-1.540-01 

60           1 

L         5.1580-03 

6.558D-05 

-3.113D-02 

-3.770-03 

3.710-03 

1.76D-01 

59           ] 

L         0.0 

0.0 

O.C 

0.0 

0.0 

0.0 

58           1 

L         5.3380-03 

5.7280-05 

-3.2770-02 

-3.12D-04 

3.650-03 

-6.410-05 

57           i 

L         0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

56           ] 

L         5.4480-03 

1.893D-05 

-3.5ieD-02 

-1.670-04 

3.960-03 

-2.910-05 

55           ] 

L         0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

54           1 

L         5.448D-03 

-1.881D-05 

-3.518D-02 

1.670-04 

3.96D-03 

2.910-05 

53           ] 

t      o.o 

0.0 

0.0 

0.0 

0.0 

0.0 

52           ] 

L         5.3380-03 

-5.716D-05 

-3.2770-02 

3.120-04 

3. 650-03 

6.420-05 

51            1 

L         5.157D-03 

-6.546D-05 

-3. 1120-02 

3.78D-03 

3.710-03 

-1.760-01 

50           ] 

t         4.2100-03 

6.289D-05 

1.5820-04 

-1.06D-03 

3.110-03 

5.480-02 

49           1 

L         0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

48           ] 

L         4.288D-03 

0.0 

0.0 

0.0 

3.09D-03 

0.0 

47           J 

L         0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

46           ] 

L         4.3130-03 

0.0 

0.0 

0.0 

3.28D-03 

0.0 

45           ] 

I         0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

44           1 

I         4.3130-03 

0.0 

0.0 

0.0 

3. 280-03 

0.0 

43           1 

I         0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

42           ] 

L         4.288D-03 

0.0 

0.0 

0.0 

3.090-03 

0.0 

41            1 

L         4.2100-03 

-6.2910-05 

1.58  30-04 

1.06D-03 

3.110-03 

-5.470-02 

40           i 

I         3.250D-03 

1.5850-04 

2.3820-02 

5.48D-04 

2.24D-03 

-3.370-02 

39           ] 

L         0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

38           J 

L         3.266D-03 

1.  1680-04 

2.389D-02 

8.150-05 

2.290-03 

-3.110-05 

37           ] 

L         0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

36           ] 

I         3.2430-03 

3.6350-05 

2.4780-02 

9.490-05 

2.370-03 

-2.330-05 

35           1 

L         0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

34           3 

L         3.2430-03 

-3.6440-05 

2.4780-02 

-9.490-05 

2.370-03 

2.34D-05 

33           ] 

L         0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

32           1 

L          3.2660-03 

-1.1690-04 

2.3890-02 

-8.150-05 

2.290-03 

3.110-05 

31           1 

L         3.250D-03 

-1.5860-04 

2.382D-02 

-5.490-04 

2.240-03 

3.37D-02 

30            1 

I         2.0820-03 

1.3720-04 

4.4220-02 

3.840-04 

7.200-04 

-2.73D-02 

29           ] 

L         0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

28 

t         2.0410-03 

9.8790-05 

4.4210-02 

3.590-05 

7. 420-04 

2.26D-05 

27           ] 

L          0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

26 

L         2.0020-03 

3.1520-05 

4.48  20-02 

3.150-05 

7.280-04 

2.060-05 
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25 

1    0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

24 

1    2. 002O-O3 

-3.1690-05 

4. 4820-02 

-3.150-05 

7.280-04 

-2. 060-05 

23 

1    0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

ZZ 

1    2.0410-03 

-9. 8950-05 

4.4210-02 

-3.600-05 

7. 420-04 

-2.260-05 

21 

I    2.0320-03 

-1.3730-04 

4.422D-02 

-3.84  0-04 

7.200-04 

2.730-02 

20 

1    1.2500-03 

6.8010-05 

3.55  ID- 02 

2.56D-04 

-9.70D-04 

-2. 420-02 

19 

1    0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

ie 

1    1.2090-03 

4.8980-05 

3.53  8D-02 

-1. 480-05 

-9.480-04 

-1.910-07 

17 

1    0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

16 

1    1.190D-03 

1.584D-05 

3.54  30-02 

-5.270-07 

-9.600-04 

-1.26D-06 

15 

1    0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

14 

1    1.1900-03 

-1.5970-05 

3.5430-02 

4.910-07 

-9.600-04 

1.260-06 

13 

1    CO 

0.0 

0.0 

0.0 

0.0 

0.0 

12 

1    1.2090-03 

-4.910D-05 

3.53eD-02 

1.470-05 

-9. 480-04 

1.820-07. 

11 

1    1.2500-03 

-6.8140-05 

3.5510-02 

-2.56D-04 

-9.70D-04 

2.420-02 

10 

1    1.3230-03 

3.0580-06 

4.273D-05 

-4.51D.-05 

-1.540-03 

0.0 

9 

1    0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

e 

1    1.2820-03 

0.0 

0.0 

0.0 

-1.520-03 

0.0 

7 

l   o.a 

0.0 

0.0 

0.0 

0.0 

0.0 

6 

1    1. 2660-03 

0.0 

0.0 

0.0 

-1.520-03 

0.0 

5 

1    CO 

0.0 

0.0 

0.0 

0.0 

0.0 

4 

1    1.2660-03 

0.0 

0.0 

0.0 

-1.52D-03 

0.0 

3 

1    CO 

0.0 

0.0 

0.0 

0.0 

0.0 

2 

1    1.2620-03 

0.0 

o.c 

0.0 

-1.520-03 

0.0 

1 

1    1.3230-03 

-3.057D-06 

4.2710-05 

4.51D-05 

-I. 540-03 

0.0 

BEAM  FORCES  AND  MOMENTS 

BEAM 

LOAD      AXIAL 

SHEAR 

SHEAR 

TCRSICN 

BENDING 

BENDING 

NO. 

NO.          Rl 

R2 

R3 

Ml 

M2 

H3 

1 

1   4.7180  01   - 

1.1500  CI   - 

1.321D-03   - 

6.7140-04 

1.5360-02 

-8. 2480  01 

-4.7180  01 

1.1500  01 

1.321D-03 

6.7140-04 

1. 5470-02 

-1.859D  02 

1      4.6320    01      -1.1290    01      -1.8010-03      -2. 3040-05         1.757D-02      -8.0820    01 
-4.6320    01  1.1290    01         1.8010-03         2.3040-05         2.44  70-02      -1.826D    02 


3         1       4.6320    01      -1.1290    01  1. 7950-03         2.4690-05      -1.7470-02      -8.081D    01 

-4.6320    01  1.1290    01      -1.7950-03      -2. 4690-05      -2.4410-02      -1.826D    02 


4         1       4.718D    01      -1.1500    CI  1.315D-03         6.730D-04      -1.527D-02      -8.248D    01 

-4.7180    01  1.1500    01      -1.3150-03      -6.730D-04      -1. 5420-02      -1.8590    02 


5         1       1.4020    02      -1.1180    01  6.8510-C3         2.3270-03      -1.92CD-02         2.3680   01 

-1.4020    02  1.1180    01       -6.8510-03      -2.3270-03      -1.4070-01      -2.8470    02 
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6    1   1.4060  02   -1.162D  01 
-1.406U  02    1.1620  01 


6. 8280-03 
■a. 8280-03 


1.4750-03 
■1.4750-03 


-4.3680-02 
■1.6210-01 


1.B28D   01 
-2.8960    02 


7         I       1.406D    02      -1.1620    01 
-1.4060    02  1.1620    01 


-8.8260-03 
8.8260-03 


■1.4750-03 
1.4  750-03 


4.3840-02 
1.6210-01 


1.8290    01 
-2.8960    02 


8         1       1.4020    02      -1.1180    01 
-1.4020    02  1.1180    01 


-6.8500-03 
6.8500-03 


-2.3270-03 
2.32/0-03 


1.9160-02 
1.4070-01 


2.3680   01 
-2.847D   02 


9         1       2.0760    02      -8.8810    00 
-2.0760    02  8.8810    00 


-4.6690-02 
4.6690-02 


3.3170-03 
■3.3170-03 


9.0580-02 
5.7880-01 


1.6650    02 
-2.9380    02 


10         1      2.2410    02      -1.3550    01 
-2.2410    02         1.3550    01 


-4.1340-02 
4.1340-02 


4.6520-03 
-4.6520-03 


9.425D-02 
4.9830-01 


1.4740    02 
-3.4170    02 


11         1      2.2410    02      -1.3550    01 
-2.2410    02         1.3550    01 


4.1320-02 
-4.1320-02 


-4.6540-03 
4.6540-03 


-9.4250-02 
-4.981D-01 


1.4740    02 
-3.4170    02 


12         1       2.076D    02      -8.8810    00 
-2.0760    02         8.8810    00 


4.66  90-02 
-4.6690-02 


•3.319D-03 
3.3190-03 


-9.0600-02 
-5.7860-01 


1.6650    02 
-2.9380    02 


13         1       2. 129D.  02      -7.536D    00 
-2.1290    02         7.5360    00 


2.1570-01 
-2.1570-01 


■1.498D-02 
1.4980-02 


-5.8620-01 
-1.3560    00 


2.9280    02 
-3.6060    02 


14        1      2.5260    02      -i.4700    01 
-2.5280    02         1.4700    01 


1.7790-01 
•1.7790-01 


-1.74C0-02 
1.7480-02 


•5.C46C-01 
•1.097D    00 


3.0440    02 
-4.3670    02 


15        1      2.5280    02      -1.4700    01 
-2.5280    02         1.4  70D    01 


■1.7780-01 
1.7780-01 


1.7480-02 
-1.7480-02 


5.0440-01 
1.096D    00 


3.044D    02 
-4.3670    02 


16         1       2.1290    02      -7.5360    00 
-2.1290    02         7.5360    00 


-2.1560-01 
2.156D-01 


1.498D-02 
•1.4980-02 


5.861D-01 
1.3550    00 


2.9280    02 
-3.6060    02 


17         1       1.4810    02         5.3200    01 
-1.4810    02      -5.3200    01 


4.6390-01 
-4.6390-01 


-5.7900-02 
5.7900-02 


-2.776D    00 
-1.4000    00 


4.697D    02 
9.2030    00 


18         1       1.9240    02         5.675D    01 
-1.9240    02      -5.6750    01 


3.119D-01 
-3.1190-01 


-3.1060-02 
3.1060-02 


■1.7100    00 
-1.0970    00 


5.3510    02 
•2.4220    01 


19         1       1.9240    02         5.6750    01 
-1.9240    02      -5.6750    01 


-3.1180-01 
3.1180-01 


3.1060-02 
■3.1060-02 


1.709D    00 
1.0970   00 


5.3510    02 
-2.4220    01 


20        I       1.4810   02         5.32C0    01 
-1.4810    02      -5.3200    01 


-4.6390-01 
4.6390-01 


5.7890-02 
-5.7890-02 


2.7760  00 
1.4000  00 


4.6970    02 
9.1990    00 


21         1    -4.5100    01  5.2950    01 

4.5100    01      -5.2950    01 


-3.4820-01 
3.4820-01 


-3.785D-02 
3.7850-02 


1.4310  00 
3.2710  00 


3.0790  02 
4.0710  02 


22         1    -1.8120    01         5. 752D    01 
1.8120    01      -5.7520    01 
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-2.6700-01 
2.6700-01 
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■1.9370-02 
1.9370-02 


1.1190    00 
2.4860    00 


3.6970    02 
4.0690    02 


23        l   -i.auo   01        5.  T>?0   01 
1.812U    01      -5. 752D    01 


2.6700-01 
•2.6700-01 


1.9360-02 
1. 9360-02 


-1.1190    00 
-2.4860    00 


3.6970  02 
4.0690  02 


24         1   -4.5100    01         5.2950    01 
4.5100    01      -5.2950    01 


3.4830-01 
■3.4830-01 


3.7640-02 
-3.7840-02 


■1.4310    00- 
■3.2720    00 


3.0790  02 
4.0710  02 


25         1    -2.516D    02         4.0090    01 
2.5160    02      -4.0090    01 


7.639D-01 
-7.6390-01 


-1.425D-01 
1.4250-01 


-2.6060    00 
-6.1810    00 


-6.0640    01 
5.2170   02 


26         1   -3.0130    02         7.0070    01 
3.0130    02      -7.007D    01 


5.6340-01 
■5.6340-01 


-9.9610-02 
9.9610-02 


-1.964D    00 
-4. 51 60    00 


6.5580    01 
7.4040    02 


27         1   -3.0130    02         7.0070    01 
3.0130    02      -7.0070    01 


-5.6330-01 
5.6330-01 


9.9610-02 
-9.9610-02 


1.964D    00 
4.5160    00 


6.558D    01 
7.4040    02 


28         1    -2.5160    02         4.0090    01 
2.5160    02      -4.009D    01 


•7.64C0-01 
7.6400-01 


1.4250-01 
-1.4250-01 


2.6060    00 
6.1820   00 


-6.0650    01 
5.2170    02 


29         1   -3.5730    02  1. 192D    01 

3.5730    02      -1.192D    01 


■1.4440    00 
1.4440    00 


8.1810-02 
-8.1810-02 


6.2780  00 
9. 6140  00 


-3.492D   02 
4.8040    02 


30         1    -4.4480    02      -6.9740-01 
4.4480    02         6.9740-01 


■1.050D    00 
1.050D    00 


6.5770-02 
-6.5770-02 


4.587D    00 
6.9660    00 


-5.0C80    02 
4.931D    02 


31         1    -.A.448D    02      -6.9750-01 
4.4480    02         6.9750-01 


1.05C0    00 
■1.C5CD    CO 


-6.577D-02 

6.577C-02 


-4.5870    00 
-6. 9660    00 


•5.0080    02 
4.93 ID    02 


32         1    -3.5730    02  1.192D    01 

3.5730    02      -1.1920    01 


1.4440    00 
■1.4440    00 


-8.1810-02 
8.1810-02 


-6.278D    00 
-9.6150    00 


-3.4920    02 
4.8040    02 


33         1   -3.7340    02      -1.1530    01 
3.734D    02         1.1530    01 


4.4570    00 
-4.4570    00 


-1.964D-01 
1.9640-01 


-7.911D    00 
-5.4640    00 


-4.5170    02 
4.1710    02 


34        1   -4.5690    02         1.4110    01 
4.5690    02      -1.4110    01 


2.9230    00 
-2.923D    00 


-1.263D-01 
1.2630-01 


■5.2450    00 
-3.5270    00 


-4.8850    02 
5.3090    02 


35         1   -4. 5690    02         1.4110    01 
4.5690    02      -1.4110    01 


-2.9230  00 
2.9230  00 


1.2630-01 
-1.2630-01 


5.2450  00 
3.5270  00 


-4.885D    02 
5.309D    02 


36        1   -3.7340    02      -1.1530    01 
3.7340    02         1.1530    01 


-4.457D    00 
4.4570    00 


1.9640-01 
■1. 9640-01 


7.911D    00 
5.4640    00 


-4.517D  02 
4.1720  02 


37    1  -2.5690  02   -3.7540  01 
2.5690  02    3.7540  01 


-4. 3980-01 
4.3980-01 


9.  189D-02 
-9.1890-02 


5.7360  00 
2.8420  00 


-6.6040    02 
-7.1890    01 


38         1   -2.7720    02      -5.240D    01 
2.772D    02         5.2400    01 


-2.9030-01 
2.9030-01 


5.3420-02 
-5. 3420-02 


3.7300    00 
1.9320    00 


-8.2070    02 
-2.0150    02 


39  1    -2.7720    02      -5.2400    01 

2.7720    02         5.2400    01 


2.9030-01 
■2.9030-01 


-5.3410-02 
5.3410-02 


■3.7300    00 
■1.9320    00 


-8.2070   02 
-2.0150   02 
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40         i   -2.5690    02      -3.7540    01  4. 3980-01       -9.1890-02      -5.736D    00      -6.6040    02 

2. 569D    02         3.7540    01       -4.3980-01  9.1890-02      -2.8420    00      -7.1890    01 


41         1    -2.2860    01      -4.4000    01  1.840D-01         2. 6480-02      -1.8270    00      -3.2090    02 

2.2860    01         4.4000    01       -1.8400-01      -2.6480-02      -6.5760-01      -2.7330    02 


42         1      5.0760    00      -4.4350    01         1.0410-01         1.3850-02      -1.0020   00      -2.9360   02 
-5.0760    00         4.435D    01       -1.0410-01      -1.3850-02      -4.0440-01      -3.0530    02 


43         1      5.0760    00      -4.4350    01      -1.041D-01      -1.3840-02         1.0020   00      -2.9360   02 
-5.0760    00         4.4350    01         1.041D-01         1.3840-02         4.0450-01      -3.0530   02 


44         1   -2.2860    01      -4.4000    01      -1.8400-01      -2.647D-02         1.8270   00      -3.2090   02 
2.2860    01         4.4000    01  1.8400-01         2.647U-02         6.5770-01      -2.7330    02 


45         1       1.3390    02      -4.3980    01      -2.2960-01         3.3710-02         6.792D-01         1.3590    01 
-1.3390    02         4.3980    01  2.296D-01      -3.3710-02         1.3880   00      -4.096D    02 


46         1       1.6290    02      -4.4060    01      -1.351D-01         1.768D-02         4. 1700-01         4.6360   01 
-1.6290    02         4.4060    01  1.3510-01      -1.7680-02         7.9930-01      -4.4310    02 


47         1       1.629D    02      -4.406D    01  1.3510-01      -1.7680-02      -4.1710-01         4.6360    01 

-1.6290    02         4.406D    01      -1.3510-01  1.7680-02      -7.989D-01      -4.4310    02 


48         1       1.3390    02      -4.3980    01  2.295D-01      -3.371D-02      -6.792D-01  1.3600   01 

-1.3390    02         4.3980    01       -2.2950-01         3.371D-02      -1.3880    00      -4.0960    02 


49         1       1.865D    02         7.2250    00      -1.310D-01         5.916D-03         8.0090-01         3.241D   02 
-1.8650   02      -7.2250    00         1.3100-01      -5.9160-03         3.7880-01      -2.5910   02 


50        1      2. HID    02         1.151D    01      -1.1570-01         1.0550-02        6.8330-01         3.6740   02 
-2.1110    02      -1.1510    01  1.1570-01      -1.0550-02         3.5820-01      -2. 6380    02 


51         1      2.1110    02         1.151D    01         1.157D-01      -1.0540-02      -6.8310-01         3.6740   02 
-2.1110    02      -1.151D    01      -1.1570-01         1.054D-02      -3.5820-01      -2.636D    02 


52         I       1.8650    02         7.2250    00  1. 3100-01      -5.9160-03      -8.0080-01         3.2410    02 

-1.8650    02      -7.2250    00      -1.3100-01         5.9160-03      -3.788D-01      -2.5910   02 


53         1       1.8090    02         8.07CO    00  3.8770-02      -2.254D-03      -3.891D-01         2.6090    02 

-1.8090    02      -8.0700    00      -3.8770-02         2.254D-03      -1.3450-01      -1.5190    02 


54         1       1.9060    02         1.0910    01         4.0300-02      -3.4970-03      -3. 6770-01         2.8880   02 
-1.9060    02      -1.091D    01      -4. 0300-02         3.4970-03      -1.7660-01      -1.4150    02 


55         1       1.9060    02         1.091D    01      -4.03CD-02         3.497D-03         3.6760-01         2.8880    02 
-1.9060    02      -1.091D    01         4.0300-02      -3.497D-03         1.7660-01      -1.415D    02 


56         1       1.8090    02         8. 07CO    00      -3.8770-02         2.2540-03         3.891D-01         2.6090    02 
-1.8090    02      -8.0700    00         3.8770-02      -2.2540-03         1.3460-01      -1.5190    02 
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57    1   1.2510  02    9.5660  00 
-1.2510  02   -9.566D  00 


-6. 5100-04      -1.430D-03 
6.5100-04  1.4300-03 


2.8450-02     -   2.4940    02 
■1.3790-02      -3.4030    01 


58         1        1.252D    02         9.8550    00      -2. 8020-04      -1.011D-03         2.3480-02        -2.5250    02 
-1.2520    02      -9.8550    00         2.8020-04  1.0110-03      -1.7170-02      -3.064D    01 


59         1       1.2520    02         9. 8550    00         2.802D-04         1.011D-03      -2.3480-02         2.525D    02 
-1.2520    02      -9.855D    00      -2.8020-04      -1.0110-03  1. 7170-02      -3.0640    01 


60 


1.2510    02 
■1.2510    02 


9. 566D    00         6.5110-04 
-9.5660    00      -6.511D-04 


1. 4300-03      -2.8450-02         2.4940    02 
•1.4300-03         1.3800-02      -3.403D    01 


61 


1   4.9490  01    9.7780  00   -1.37CD-03 
-4.9490  01   -9.7780  00    1.3700-03 


6.0060-04 
-6.006D-04 


1.042D-02 
2. 0440-02 


1.6600  02 
5.4140  01 


62 


1      4.8870    01 
-4.6870    01 


9.6500    00 
•9.6500    CO 


8.557D-04 
■8.557D-C4 


2.9650-05      -1.6200-02 
-2. 9650-05      -3.0610-03 


1.6390    02 
5.3400    01 


63         1       4.8870    01         9.6500    CO 
-4. 887D    01      -9.6500    00 


-8.5530-C4 
8.553D-04 


-2.994D-05 
2.9940-05 


1.620D-02 
3.0580-03 


1.639D  02 
5.3400  01 


64         1       4.949D    01 
-4.9490    01 


9.778D    00 
-9.7780    00 


1.3710-03 
■1.3710-03 


-6.0090-04 
6.0090-04 


-1. 0420-02 
-2.0440-02 


1.6600    02 
5.4140    01 


65         1    -1.-1720    01 
1.1720    01 


9.5270    00 
-9.5270    00 


4.5620-03 
-4.5620-03 


3.5590-04 
•3.5590-04 


-6.6740-03 
-5.4970-02 


5.1530    01 
7.7180    01 


66         1    -1.1680    01 
1.1680    01 


9.4330    00 
-9.433D    00 


4.7540-04 
-4.7540-04 


1.3450-04 
•1.3450-04 


5.8380-03 
■1.2260-02 


5.0450    01 
7.7000    01 


67         1    -1.1680    01 
1.1680    01 


9.4330    00 
•9.4330    00 


-4.756D-04 
4.7560-04 


•1.348D-04 
1.348D-04 


-5.8350-03 
1.2260-02 


5.0450    01 
7.700D    01 


68         1    -1.1720    01 
1.1720    01 


9.527D    00 
-9.5270    00 


-4.561D-03 
4.5610-03 


-3.5630-04 
3.5630-04 


6.6730-03 
5.4960-02 


5.1530    01 
7.7180    01 


69         1    -4.4360    01 
4.4360    01 


9.5420    00 
-9.5420    00 


■1.957D-02 
1.9570-02 


9.7880-04 
-9.788D-04 


5.680D-02 
1.1950-01 


-2.3620    01 
1.0960    02 


70         1    -4.4440    01  9.4160    00 

4.4440    01      -9.4160    00 


-5.0560-03 
5.0560-03 


3.1610-04 
-3.1610-04 


1.268D-02 
3.2860-02 


-2.4330    01 
1.092D    02 


71  1    -4.4440    01         9.416D    00 

4.4440    01      -9.4160    00 


5.059D-03 
-5.0590-03 


-3.1640-04 
3.1640-04 


-1.2680-02 
-3.2890-02 


•2.4330    01 
1.0920    02 


72  1    -4.4360    01         9.5420    00 

4.4360    01      -9.5420    00 


1.957D-02 
■1.9570-02 


■9.7890-04 
9.7890-04 


-5.6800-02 
-1.1950-01 


-2.3620    01 
1.0960    02 


73         1    -5.4770    01      -2.4950    00 
5.4770    01         2.4950    00 


3.8070-03 
•3.8070-03 


2.1710-03 
-2.1710-03 


-2.2010-02 
•1.2200-02 


-9.288D    01 
7.0410    01 


Fig.      19  Continued. 
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74         I    -5.4550    01      -2.6200    00 
5.<tt>i>0    01         2.6200    00 


7.9760-03 
•7.9760-03 


-6.2580-05 
6.2580-05 


-4.6170-02 
-2.56  70-02 


-■9.3420    01 
6.9t)20    01 


75         I    -5.4550    01      -2.6200    00 
5.4550    01         2.6200    00 


-7.9660-03 
7.966D-03 


6.237D-05 
-6.2370-05 


4.6100-02 
2.5660-02 


-9.3420  01 
6.9820  01 


76    1  -5.4770  01   -2.4950  00 
5.477D  01    2.4950  00 


-3.7990-03 
3.7990-03 


-2.171D-03 
2.1710-03 


2.1950-02 
1.2270-02 


-9.2880    01 
7.0410    01 


77        1    -5.104D    01      -2.5940    00 
5.1040    01         2.5940    00 


-9.7570-04 
9.757D-04 


2.3440-04 
-2.3440-04 


1.274D-02 
1.2620-03 


-7.434D  01 
3.712D  01 


78    1  -5.0260  01   -2.613D  00 
5.0260  01    2.613D  00 


-2.8320-03 
2. 8320-03 


3.6220-04 
-3.6220-04 


2.656D-02 
1.4070-02 


-7.4360  01 
3.6880  01 


79    I  -5.0260  01   -2.6130  00 
5.0260  01    2.6130  00 


2.8310-03 
-2.831D-03 


-3.6230-04 
3.6230-04 


-2.6540-02 
-1.4070-02 


-7.436D    01 
3.6880    OL 


60         I    -5.1030    01      -2.5940    00 
5.1030    01         2.5940    00 


9.749D-04 
-9.7490-04 


-2.3450-04 
2.345D-04 


■1.272D-02 
■1.2640-03 


-7.4340    01 
3.712D    01 


81         i   -3.3250    01      -2.6830    00 
3.3250    01         2.6830    00 


6.1860-04 
-6.1860-04 


-2.2760-04 
2.2760-04 


-8.5040-03 
-5.946D-03 


-6.765D    01 
4.9850    00 


82         1    -3.2720    01      -2.6400    00 
3.2720    01         2. 640D    00 


1.517D-04 
•1.5170-04 


-5.7020-05 
5.7020-05 


-3.5290-03 
-1.3430-05 


-6.6900    01 
5.2230    00 


83         1   -3.272D    01      -2.6400    00 
3.2720    01         2.6400    00 


■1.515D-04 
1.5150-04 


5.7040-05 
-5.7040-05 


3.5300-03 
9.0870-06 


-6.6900    01 
5.2230    00 


84         I    -3.3250    01      -2. 683D    00 
3.3250    01         2.6830    00 


-6.184D-04 
6.184D-04 


2.2760-04 
-2.2760-04 


6. 5050-03 
5.9410-03 


-6.7650    01 
4.9850    00 


85         1   -1.1130   01     -2.6770    00 
1.1130    01         2.6770    00 


5.975D-04 
-5.9750-04 


-4.514D-04 
4.5140-04 


-7.8640-03 
-6.094D-03 


-4.3430    01 
-1.9120    01 


86         1   -1. 100D    01      -2.649D    00 
1.1000    01         2.6490    00 


2.6970-05 
-2.6970-05 


-1.500D-04 
1.5000-04 


5.0150-05 
-6.8030-04 


-4.3000    01 
-1.8380    01 


87         I   -1. 100D    01      -2.649D    00 
1.1000    01         2.649D    00 


-2.7670-05 
2.7670-05 


1.5010-04 
•1.5010-04 


-4.4260-05 
6.9060-04 


-4.300D    01 
-1.888D    01 


88         1    -1.1130    01      -2.6770    00 
1.1130   01         2.6770    00 


-5.981D-04 
5.9810-04 


4.515D-04 
-4.5150-04 


7.8690-03 
6.1030-03 


-4.343D    01 
-1.9120    01 


89         I       0.0 
0.0 


0.0 
0.0 


-6.9090-04 
6.9090-04 


-3.6750-05 
3.6750-05 


2.8790-03 
2.8790-03 


0.0 
0.0 


90         I       0.0 
0.0 


0.0 
0.0 


-6.0570-07 
6.0570-07 


-9.9580-08 
9.9580-08 


2.5240-06 
2.5240-06 


0.0 
0.0 
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91         1       0.0  0.0  6.8910-0*         3.6570-05      -2.8710-03         0.0 

0.0  0.0  -6. 8910-04      -3.6570-05      -2. 8710-03         0.0 


92         1       2.4290-01      -1.8290-02      -1.3270-04      -1.2350-04         3.2440-04         0.0 

-2.4290-01         1.8290-02  1.327D-04  1.2350-04         7.8150-04      -1.5240-01 


93         1       1.1220    00         3.9970-06         9.836D-07      -5. 8370-08         5.3230-04      -8.379D-03 
-1.1220    00      -3.9970-06      -9.8360-07         5.8370-08      -5.4050-04         8.4120-03 


94         1       2.4300-01         1.8290-02  1.345D-04  1.234D-04      -7.887D-04         1.5240-01 

-2.4300-01      -1.8290-02      -1.3450-04      -1.2340-04      -3.3180-04         0.0 


95         1       2.8370    00      -1.1990-01  6.1890-03      -1.5180-04      -2.6200-02         0.0 

-2.8370    00         1.1990-01      -6.1890-03         1.518D-04      -2.5380-02      -9.989D-01 


96         1       6.8060    00         3.5240-06  1.616D-07  1.9840-08      -8.7820-03         5.1970-01 

-6.8060    00      -3.5240-06      -1.6160-07      -1.9840-08         8.781D-03      -5. 1970-01 


97         1       2.837D    00         1.1990-01      -6.1890-03  1.519D-04         2.5380-02         9.989D-01 

-2.8370    00      -1.1990-01  6.189D-03      -1.5190-04         2.6200-02         0.0 


98         1      0.0-  0.0  -1.2C8D-02         1.9660-03         5.032D-02         0.0 

0.0  0.0  1.2080-02      -1.9660-03         5.0320-02         CO 


99         1       0.0  0.0  6.045D-07  1.5620-07      -2.5190-06         0.0 

0.0  0.0  -6.0450-07      -1.5620-07      -2.5190-06         0.0 


100         1       0.0  0.0  1. 2080-02      -1.9660-03      -5.0330-02         0.0 

0.0  0.0  -1.2080-02         1.9660-03      -5.033D-02         0.0 


101         1    -2.7870    01  1.7640    00      -8.9800^02         5.2640-03         3.9320-01         0.0 

2.7870    01      -1.7640    00         8.9800-02      -5.2640-03         3.5510-01         1.4700   01 


102         1    -5.6920    01  1. 9880-06      -2.123D-06         1.607D-07         7.5520-02      -6.7600    00 

5.6920    01      -1.9880-06         2.1230-06      -1.607D-07      -7.5500-02         6.7600    00 


103         1    -2.7870    01      -1.764D    00         8.980D-02      -5.2640-03      -3.5510-01      -1.4700    01 
2.7870    01         1.7640    00      -8.9800-02         5.2640-03      -3.9320-01         0.0 


104         1   -4.8670    01         3.2400    00      -4.2580-02      -1.2610-03  1.9570-01         0.0 

4.6670    01      -3.2400    00         4.2580-02  1.2610-03         1.592D-01         2.700D    01 


105         1    -1.0440    02         1.2980-06  1.0100-06      -5.2410-08         6.8550-02      -1.2130    01 

1.0440    02      -1.2980-06      -1.0100-06         5.2410-08      -6.8560-02         1.2130    01 


106         1    -4.8670    01      -3.2400    00         4.258D-02  1.2600-03      -1.5920-01      -2.7000    01 

4.8670    01         3. 2400    00      -4.2580-02      -1.2600-03      -1.9570-01         0.0 


107         1    -1.5970    01  9.9580-01  5.4940-02      -3.6470-03      -2.4220-01         0.0 

1.5970    01       -9.9580-01       -5.4940-02  3.647D-03       -2.1560-01  8.2980    00 
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108         1    -3.2480    01      -6.0710-06         2.769D-06      -1.715D-07      -2.839D-02      -3.7930    00 
3.2480    01         6.0710-06      -2. 7690-06  1.7150-07  2.8360-02         3.7930    00 


109         1   -1.5970    01      -9.9580-01      -5.494D-02         3.6460-03         2.1560-01       -8.2980    00 
1.5970    01         9.958D-C1  5.4940-02      -3.6460-03         2. 4220-01         0.0 


110         1       0.0  0.0  6.787D-03      -1.0250-03      -2.828D-02         0.0 

0.0  0.0  -6.7870-03         1.0250-03      -2.8280-02         0.0 


111         1       0.C  0.0  2.0870-07      -3. 1520-08      -8.6950-07         0.0 

0.0  0.0  -2.0870-07         3.1520-08      -8.6950-07         0.0 


112         1       CO  0.0  -6.7870-03  1.0250-03         2.828D-02         0.0 

0.0  0.0  6.7870-03      -1.0250-03         2.8280-02         0.0 


113         1       1.5790    00      -6.0420-02      -2.1660-03         9.0120-05         9.5580-C3         0.0 

-1.5790    00         6.0420-02         2.166D-03      -9.0120-05  8.4940-03      -5.0350-01 


114         1       4.0600    00      -1.0440-06         2.384D-07      -1.0940-08         2.1430-03  2.275D-01 

-4.0600    00         1.0440-06      -2.3840-07  1.0940-08      -2.1450-03      -2.2750-01 


115         1       1.5790    00         6.0430-02         2. 1670-03      -9.0140-05      -8.4960-03         5.0350-01 
-1.5790    00      -6.0430-02      -2.1670-03         9.014D-05      -9.5600-03         0.0 


116         1       2.3030-02      -1.2410-03         1.5990-05         7.6060-05         4.6290-04         0.0 

-2.3030-02         1.2410-03      -1.599D-05      -7. 6060-05      -5. 9620-04      -1.0340-02 


117         1       5.8240-01      -4.613D-07         7.9700-08         9.7700-09      -3.9020-04      -6.5410-02 
-5.8240-01         4.6130-07      -7.97C0-08      -9.7700-09  3.8960-04         6.541D-02 


118         1       2.3070-02         1.242D-C3      -1.5730-05      -7.6040-05         5.9510-04  1.0350-02 

-2.3070-02      -1.2420-03         1.5730-05         7.6040-05      -4.6400-04         0.0 


119         1    -2.3450-01         9.0050-03      -1.3890-04         5.1930-06         9.2530-C4         0.0 

2.3450-01      -9.0050-03  1.389D-04      -5.193D-06         2.321D-04         7.5040-02 


120         1    -2.9530-01      -3.3750-07  1.340D-08         1.2780-08         5.035D-04      -5.5630-02 

2.9530-01         3.3750-07      -1.34CD-08      -1.2780-08      -5.036D-04         5. 5630-02 


121         1    -2.3450-01      -9.0C4D-03         1.3900-04      -5.1710-06      -2.326D-04      -7.5030-02 
2.3450-01         9.004D-03      -1.3900-04         5.1710-06      -9.2570-04         0.0 


122         1       0.0  0.0  3.9020-04      -2.824D-05      -1.626D-03         0.0 

0.0  0.0  -3.9020-04         2.8240-05      -1. 6260-03         0.0 


123         1       CO  0.0  1.761D-07         7.0710-09      -7.3380-07         0.0 

0.0  0.0  -1.7610-07      -7.071D-09      -7.3380-07         0.0 


124         1       CO  0.0  -3.8960-04         2.8250-05  1.624D-03         0.0 

CO  0.0  3.898D-04      -2.8250-05  1.6240-03         0.0 


49 


125         1       1. 0490-01      -9.4240-03         3. 1550-04      -1.9650-05      -1. 4780-03         0.0 

-1.0490-01         9.4240-03      -3.155D-04         1.9650-05      -1.1510-03      -7.8530-02 


126         I   -5.4600-03         4.6220-07         1.3550-08      -8.0070-10      -3.0700-04         7.4460-02 
5.4600-03      -4.622D-07      -1.3550-08         8.0070-10         3.0690-04      -7.4460-02 


127         1       1.0490-01         9.424D-03      -3.155D-04         1.965D-05         1.1510-03         7.853D-02 
-1. 0490-01      -9.4240-03         3.155D-04      -1.9650-05         1.4780-03         0.0 


128         1       1.5450-01      -8.108D-03      -1.809D-04         9.8820-06         5. 892D-04         0.0 

-1.5450-01         8.1080-03         1.6090-04      -9.8820-06         9.184D-04      -6.7560-02 


129         1       1.5050-01         1.2330-07         4.502D-08      -4.2480-09      -1.1480-05         5.4330-02 
-1. 5050-01      -1.2330-07      -4. 5020-08         4.2480-09         1.111D-05      -5.4330-02 


130         1       1.5450-01         6. 1C8D-03         1.8100-04      -9.888D-06      -9.1860-04         6.7560-02 
-1. 5450-01      -8.108D-03      -1.8100-04         9.888D-06      -5.8950-04         0.0 


-5.1870-04         2.546D-05         2.161D-03        0.0 
5.1870-04      -2.5460-05         2.1610-03         0.0 


-2.095D-07      -6.2360-09  8.728D-07         0.0 

2.0950-07         6.2360-09         8. 7280-07         0.0 


5.182D-04      -2.546D-05      -2.159D-03         0.0 
-5.182D-04         2.5460-05      -2.1590-03         0.0 


MEMBRANE  STRESS  COMPONENTS  BENDING  MOMENT  COMPONENTS 

SXX  SYY  SXY  MXX  MYY  MXY 


1  1  0.5450D  01  -0.11350  00   0.11140  01  0.27480  00  -0.82910-02   0. 49460-02 

2  1  0.5438D  01  0. 19720-01   0.12660  00  0.27860  00   0. 32100-01   0.22470-02 

3  1  0.54140  01  0.47930-01  -0.66340-04  0.27770  00   0.40940-01   0.71060-05 
*  1  0.54390  01  0.1972D-01  -0.12660  00  0.27860  00   0. 32100-01  -0.22320-02 

5  1  0.54510  01  -0.11350  00  -0.1114D  01  0.27480  00  -0.8297D-02  -0.49260-02 

6  1  0.16380  02  0.36500-01   0.10900  01  0.82210  00   0.14140-03   0.28900-01 

7  1  0.16300  02  0. 32380-01   0.27320  00  0.83960  00   0.11930  00   0.40590-01 

8  1  0.16220  02  0.14970  00  -0.68940-04  0.84650  00   0.1696D  00   0.2223D-05 

9  1  0.16300  02  0.32400-01  -0.27330  00  0.83960  00   0.11930  00  -0.40590-01 

10  1  0.1638D  02  0.36520-01  -0.1090D  01  0.82210  00   0.15390-03  -0.28890-01 

11  1  0.24170  02  0.24840  00   0.20530  00  0.1210D  01  -0.34200-01   0.44490-01 
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12  1   0.25270  02   0.24110  00   0.24960  00   0.12440  01   0.16800  00   0.48170-01 

13  1   0.25610  02   0.57410  00  -0.1823D-04   0.1361D  01   0.37630  00  -0.60290-05 

14  1   0.25270  02   0.24120  00  -0.24960  00   0. 1294D  01   0.18800  00  -0.48180-01 

15  1   0.2417D  02   0.24840  00  -0.20520  00   0.12100  01  -0.34190-01  -0.4450D-01 

16  1   0.2507D  02  -0.64860  00   0.3678D  00   0.10330  01  -0.10410  00  -0.52800-01 

17  1   0.27510  02   0.21930  01   0.12860  01   0.10940  01   0.15490  00  -0.10750  00 

18  1   0.28270  02   0.24920  01   0.86460-04   0.11840  01   0.30640  00  -0.14740-04 

19  1   0.2751D  02   0.2193D  01  -0.12860  01   0.1094D  01   0.15490  00   0.10740  00 

20  1   0.25070  02  -0.64840  00  -0.36790  00   0.1033D  01  -0.10410  00   0.52800-01 

21  1   0.17300  02  -0.40540  00  -0.4685D  01   0.72630  00  -0.61950-01  -0.5279D  00 
ZZ  1   0.20190  02   0.21070  01  -0.16740  01   0.78600  00   0.19100-01  -0.35490  00 

23  1   0.21070  02   0.2255D  01   0.1824D-03   0.8438D  00  -0.10210  00  -0.1990D-04 

24  1   0.20190  02   0.2107D  01   0.16740  01   0.7660D  00   0.19100-01   0.35480  00 

25  1   0.17300  02  -0.40520  00   0.4685D  01   0.72630  00  -0.61930-01   0.52780  00 

26  1  -0.59400  01   0.40550  00  -0.49370  01  -0.33290  00  -0.16860  00  -0.53890  00 

27  1  -0.35470  01  -0.62070  00  -0.19660  01  -0.24080  00  -0.3935D  00  -0.70750  00 

28  1  -0. 1895D  01  -0.16780  01   0.23710-03  -0.22300  00  -0.82570  00  -0.1977D-04 

29  1  -0.3547D  01  -0.62070  00   0.19660  01  -0.24080  00  -0.39350  00   0.70740  00 

30  1  -0.59410  01   0.40540  00   0.4936D  01  -0.3329D  00  -0.16870  00   0.53880  00 
3i  1  -0.2992D  02  -0.14130  00  -0.25660  01  -0.13900  01   0.23970  00  -0.10200  01 

32  1  -0.32610  02  -0.89720  00  -0.7394D  00  -0.17130  01  -0.10340  01  -0.80570  00 

33  1  -0.33990  02  -0.18740  01   0.11750-03  -0.20690  01  -0.26420  01  -0.13990-04 

34  1  -0.3261D  02  -0.89730  00   0.73930  00  -0.17130  01  -0.10340  01   0.80570  00 

35  1  -0.29930  02  -0.14150  00   0.25660  01  -0.1390D  01   0.23970  00   0.10200  01 

36  1  -0.4235D  02   0.56020  00  -0.20850  01  -0.20570  01   0.52440-01   0.28090  00 

37  1  -0.47200  02  -0.782CD  00  -0.13000  01  -0.24570  01  -0.13120  01  -0.18260  00 

38  1  -0.49860  02  -0.31980  01  -0.72560-04  -0.2947D  01  -0.32170  01  -0.20670-06 
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39  i  -0.47210  02  -0.78230  00   0.1300D  01  -0.24570  01  -0.13120  01   0.16260  00 

40  1  -0.42360  02   0.56000  00   0.20Bi>U  01  -0.20570  01   0.52340-01  -0.28100  00 

41  1  -0.43920  02   0.44610  00   0.20460  01  -0.21000  01   0.45320-01   0.59490  00 

42  1  -0.49020  02  -0.15100  01   0.29750  01  -0.25420  01  -0.13420  01   0.70100  00 

43  1  -0.5122D  02  -0.4891D  01  -0.25290-03  -0.2956D  01  -0.2856D  01   0.87140-05 

44  1  -0.49020  02  -0.15100  01  -0.2976D  01  -0.25420  01  -0.13420  01  -0.7010D  00 

45  1  -0.43930  02   0.44580  00  -0.20460  01  -0.2100D  01   0.45250-01  -0.59490  00 

46  1  -0.30290  02  -0.2751D  00   0.3244D  01  -0.14170  01   0.19780  00   0.64630  00 

47  1  -0.30990  02  -0.11530  01   0.1473D  01  -0.1635D  01  -0.92280  00   0.83420  00 

48  1  -0.31090  02  -0.2368D  01  -0.4250D-03  -0.1834D  01  -0.1992D  01   0.15400-04 

49  1  -0.30990  02  -0.11530  01  -0.14730  01  -0.16350  01  -0.9228D  00  -0.83410  00 

50  1  -0.3029D  02  -0.27520  00  -0.32440  01  -0.14170  01   0.19780  00  -0.64630  00 

51  1  -0.24740  01   0.62150  00   0.37360  01  -0.19230  00  -0.1548D  00   0.34950  00 

52  1  -0.6774D  00  -0.97310-01   0.80570  00  -0.7504D-01  -C. 20460  00   0.39730  00 

53  1   0.54370  00  -0.5817D  00  -0.54790-03  -0.3543D-01  -0.43050  00   0.15860-04 

54  1  -0.67660  00  -0.97360-01  -0.80620  00  -0.75030-01  -0.20460  00  -0.39730  00 

55  1  -0.24730  01   0.62150  00  -0.3735D  01  -0.19230  00  -0.1548D  00  -0.34940  00 

56  1   0.15580  02  -0.38400  00   0.38110  01   0.63970  00  -0.31820-01   0.32190  00 

57  1   0.17840  02   0.18910  01   0.89770  00   0.67660  00   0.49680-01   0.1766D  00 

58  1   0.18470  02   0.20340  01  -0.49450-03   0.71680  00  -0.67940-02   0.83780-05 

59  1   0.17840  02   0.18920  01  -0.89840  00   0.67670  00   0.49660-01  -0.17660  00 

60  1   0.15580  02  -0.38380  00  -0.38100  01   0.63970  00  -0.31790-01  -0.32180  00 

61  1   0.21860  02  -0.51640  00  -0.33930  00   0.89760  00  -0.54400-01  -0.11140-01 

62  1   0.23400  02   0.1893D  01  -0.1264D  01   0.90870  00   0.12130  00   0.5385D-01 

63  1   0.23560  02   0.21500  01  -0.29490-03   0.95740  00   0.21180  00   0.29490-05 

64  1   0.23400  02   0.18930  01   0.12630  01   0.90870  00   0.12130  00  -0.53840-01 

65  1   0.21870  02  -0.51630  00   0.34010  00   0.89760  00  -0. 54400-01   0.11120-01 
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66  1   0.2080D  02   0.19710  00  -0.24260  00   0.10120  01  -0. 18030-01  -0. 37450-01 

67  1   0.21690  02   0.22320  00  -0.1S89D  00   0.10660  01   0.13860  00  -0. 26120-01 

68  1   0.21930  02   0.54970  00  -0.1779D-03   0.11040  01   0.25250  00   0.13750-05 

69  1   0.2169D  02   0.22330  00   0.19670  00   0.10660  01   0.13880  00   0.26130-01 

70  1   0.20800  02   0.19720  00   0.2428D  00   0.10120  01  -0.18020-01   0.37450-01 

71  1   0.1449D  02   0.2745D-01  -0.8945D  00   0.70150  00  -0.50250-02  -0.18170-01 

72  1   0.14470  02   0.1245D-01  -0.16230  00   0.71580  00   0.9012D-01  -0. 24400-01 

73  1   0.1445D  02   0.8086D-01  -0. 90200-04   0.72010  00   0.1212D  00  -0.1684D-06 

74  1   0.14470  02   0. 12470-01   0.1620D  00   0.7158D  00   0.9013D-01   0.24400-01 

75  1   0.14490  02   0.27460-01   0.89440  00   0.70150  00  -0.50160-02   0.18160-01 

76  1   0.56910  01  -0.63690-01  -0.93850  00   0.27930  00   0.20960-02  -0.34630-02 

77  i   0.5657D  01  -0.31720-01  -0.91570-01   0.27960  00   0.26480-01  -0.15040-02 

78  1   0.56270  01  -0.89180-03  -0.64240-04   0.27870  00   0.31790-01  -0.9916D-06 

79  1   0.56570  01  -0.31730-01   0.91350-01   0.27960  00   0.26480-01   0.1502D-02 
60  I   0.5691D  01  -0.6370D-01   0.93840  00   0.27930  00   0.20960-02   0.34760-02 

81  1  -0.12120  01  -0.13690  00  -0.7558D  00  -0.62370-01  -0.40170-02  -0. 18550-01 

82  1  -0.14470  01  -0.12250  00  -0.90890-02  -0.72250-01  -0.17630-01   0.28940-02 

83  1  -0.15410  01  -0.17690  00  -0.89950-04  -0.7350D-01  -0.18010-01  -0. 94790-06 

84  1  -0.1448D  01  -0.12250  00   0.68700-02  -0.72250-01  -0.17630-01  -0.28960-02 

85  1  -0.1212D  01  -0.13690  00   0.7557D  00  -0.6237D-01  -0.4021D-02   0.1853D-01 

86  1  -0.4919D  01   0.93350-01  -0.8296D  00  -0.21960  00   0.15180-02  -0.30200-01 
67  1  -0.52960  01  -0.56460  00  -0.27870  00  -0.20990  00  -0.33920-01   0.41000-02 

88  1  -0.5314D  01  -0.63COO  00  -0.98020-04  -0.21010  00  -0.33850-01  -0.68080-06 

89  1  -0.52960  01  -0.56470  00   0.2785D  00  -0.20990  00  -0.33920-01  -0.41020-02 

90  1  -0.49190  01   0.93290-01   0.82950  00  -0.21960  00   0.15180-02   0.30190-01 

91  1  -0.60850  01   0.12420  00   0.17450  00  -0.26990  00   0.42800-02   0.27880-01 

92  1  -0.64050  01  -0.52490  00   0.22140  00  -0.25530  00  -0.3006D-01   0.31580-02 
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93  1  -0. 64320  01  -0.5852D  00   0. 19090-04  -0.25660  00  -0. 38950-01  -0.62580-06 

94  1  -0.64C5D  01  -0.52490  00  -0.22130  00  -0.25530  00  -0.3006D-01  -0.31590-02 

95  1  -0.60850  01   0.12420  00  -0.1745D  00  -0.26990  00   0.42810-02  -0.2787D-01 

96  1  -0.5645D  01  -0.61380-01   0.9640D-01  -0.29660  00  -0.1807D-02   0.98830-02 

97  I  -0.59070  01  -0.52190-01  -0.3704D-01  -0.3015D  00  -0.29940-01   0.3148D-02 

98  1  -0.60010  01  -0.11040  00   0.10590-04  -0.30260  00  -0. 39670-01  -0.2115D-06 

99  1  -0.5907D  01  -0.5220D-01   0.37070-01  -0.30150  00  -0.2994D-01  -0.3148D-02 

100  1  -0.56460  01  -0. 61380-01  -0.9636D-01  -0.29660  00  -0.1809D-02  -0.98800-02 

101  1  -0.37830  01  -0.10790-01   0. 24450  00  -0.19340  00   0.8815D-03  -0.1027D-03 

102  1  -0.38120  01   0.2387D-01  -0.65110-02  -0.19570  00  -0.1780D-01  -0.1028D-02 

103  1  -0.3836D  01   0.35190-01   0.49310-05  -0.19510  00  -0.18590-01   O.13O1D-07 

104  1  -0.3812D  01   0.2386D-01   0.6540D-02  -0.19570  00  -0.1780D-01   0.1028D-02 

105  L  -0.37830  01  -0.10800-01  -0.24440  00  -0.1934D  00   0.8801D-03   0. 10430-03 

106  1  -0.12640  01   0.2685D-01   0.2578D  00  -0.64250-01   0.29510-02  -0.16930-02 

107  1  -0.12670  01   0.74620-02   0.24930-01  -0. 65370-01  -0.53000-02  -0.29210-02 

108  1  -0.12680  01   0.1024D-01   0.46350-05  -0.65110-01  -0.5281D-02   0.15940-06 

109  1  -0.12670  01   0.7462D-02  -0.24900-01  -0.65370-01  -0.5300D-02   0. 29210-02 

110  1  -0.12640  01   0.2686D-01  -0.25760  00  -0.6425D-01   0. 29510-02   0.16940-02 
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OVERALL  LOG 

NODAL  POINT  INPUT 3.13 

FORM    ELEMENT    STIFFNESSES 92.01 

INPUT    NODAL    LOADS .18 

FORM   TOTAL    STIFFNESS 10.86 

EQUATION    SOLVING 15.72 

ELEMENT    STRESSES 5.07 

TOTAL    SOLUTION    TIME 126.97 
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8.   Correlation  of  Computer  and  Experimental  Data  for  Bridge  #1 

Table  2  and  Figures  20  through  23  extracted  from  reference  (1)  were 
.  really  the  only  available  static  data  that  could  be  used  to  compare  the 
computer  results  with  experimental  values.  The  coefficients  listed  in 
Table  2  indicate  the  lateral  distribution  of  the  static  loads  used  to 
failure.  The  lateral  position  of  the  loads  is  indicated  by  a  sketch 
included  as  a  part  of  Table  2.  A  more  detailed  sketch  showing  the  posi- 
tion of  the  eight  load  points  is  given  in  Figure  7. 

In  the  computer  program  a  total  live  load  of  432  kips  was  selected. 
Using  a  moment  distribution  procedure  the  loads  were  then  translated  to 
applied  loads  directly  over  the  girders  at  the  same  cross-section  of  the 
bridge.  The  applied  loads  are  those  referenced  in  the  input  data. 

Figure  20  depicts  the  experimental  data  variation  in  profiles  of  the 

bridge  cross-section  with  increasing  load  at  the  centerline  of  an  interior 

span.   In  Figures  21  through  23  the  results  of  the  computer  program  are 

overprinted  on  experimental  load  deflection  curves  with  the  symbol  (S> . 

Note  the  excellent  agreement  between  the  predicted  and  measured  values 

for  bridge  #1.   In  Figure  23  the  measured  and  computed  average  load 

deflection  curves  are  shown.   The  measured  curves  were  obtained  from  the 

average  of  the  deflection  readings  over  the  four  girders  at  the  centerline 

of  the  interior  span.   The  computed  load  -  deflection  curve  is  the  result 

of  a  computer  analysis  done  by  the  University  of  Tennessee  using  an  ICES- 

STRUDL  -  II  program,  wherein  the  bridge  was  considered  to  act  as  a  single 

* 
beam.   Overprinted  with  a  symbol  (S)  on  this  graph  are  the  results  of 

SSAP2  in  which  the  bridge  was  modeled  as  a  grid  system.  No  attempt  was 

made  by  the  author  to  examine  the  use  of  SSAP2  to  predict  the  inelastic 

deflections  of  the  bridge,  although   the  ICES-STUDL  -  II  computer  analysis  was 

carried  that  far  by  a  stepwise  procedure  in  which  the  properties  of  the 

bridge  were  changed  at  each  step.   It  is  expected,  however,  that  the  SSAP2 

program  could  be  used  to  accomplish  the  same  extension  of  results. 


No  inference  is  made  that  the  ICES-STRUDL  -  II  program  is  any  less  accurate 
than  SSAP2.   The  difference  in  results  is  based  solely  on  the  method  of 
modeling  the  bridge.   Had  the  author  access  to  ICES-STRUDL  -  II  the  results 
of  the  grid  modelling  would  probably  have  been  the  same  as  SSAP2. 
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Hand  calculations  were  made  using  the  results  of  the  computer 
analysis  to  determine  the  ratio  of  bridge  moment  taken  by  each  stringer 
at  the  centerline  of  the  interior  span.   These  calculations  are  repro- 
duced in  Figure  24.  This  time  there  is  only  fair  agreement 
between  the  computer  results  and  the  load  distribution  coefficients  of 
Table  2.   It  is  not  known  why  Table  2  does  not  show  a  symmetrical 
coefficient  distribution  because  of  the  symmetry  of  the  bridge.   These 
coefficients  were  calculated  from  strains  measured  at  the  top  and  bottom 
of  the  steel  wide  flange  sections.  Note  that  the  computer  does  indicate 
a  symmetrical  distribution  of  moments  to  the  stringers. 

9.   Additional  Computer  Studies  for  Bridge  #1 

Other  computer  models  were  also  used  to  predict  bridge  response  for 
bridge  #1.   Some  of  these  consisted  of: 

a.  The  use  of  plate  elements  to  model  the  concrete  deck  and  the 
webs  of  the  steel  stringers,  while  the  flanges  of  the  stringers 
were  modeled  with  rod  elements. 

b.  The  use  of  plate  elements  for  the  deck  and  stringer  webs  and 
the  use  of  beam  elements  for  the  flanges  of  the  stringers. 

c.  The  use  of  a  thick  shell  element  in  place  of  the  thin  plate- 
shell  element  for  the  deck. 

Table  7  compares  the  results  of  items  (a)  and  (b) .  The  thick  shell 
element  became  impractical  because  of  the  number  of  nodes  involved. 
•  Additional  runs  for  bridge  #1  were  made  with  various  aspect  ratios  re- 
sulting in  fewer  nodes  for  the  bridge.   However,  the  results  were  not  as 
good.   The  reason  for  this  will  be  explained  in  the  next  section  of  this 
report. 
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P  =  357.3  (Slight  statics  discrepancy, 
common  with  finite  element  analysis 
unless  a  fine  net  spacing  is  used; 
however  full  section  statics  does 
check — see  below) 
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NOTE:   When  moments  are 
calculated  for  slab+beam 
note  that  moments  seem  to 
be  approximately  25%  for 
each  stringer  across  the 
bridge. 
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FIG.  24  -  CALCULATIONS  OF  MOMENT  TAKEN  BY  EACH  STRINGER  FOR  BRIDGE  #1 
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Continuous  Beam  Studies 

One  of  the  exceedingly  important  problems  in  finite  element  modeling 
is  to  decide  on  a  tolerable  aspect  ratio  for  the  element  size.  The  more 
elements  used,  the  more  costly  becomes  each  computer  run.  Yet  considerable 
error  can  incur  if  too  few  nodes  are  chosen.  To  examine  this  aspect  of 
the  problem,  several  computer  runs  were  performed  using  a  single  stringer 
bridge  model  (primarily  to  save  computer  costs).  Table  8  shows  the  results 
of  deflection  readings  and  solution  times  for  four  computer  runs.  All 
models  considered  the  bridge  to  consist  of  a  single  stringer  with  a  shear 
connected  concrete  deck  whose  width  was  equal  to  the  center  to  center 
distance  of  the  stringers  of  bridge  #1.  All  models  had  the  same  property 
and  load  conditions  as  one  stringer  of  bridge  #1. 

Example  (c)  used  plate  elements  for  the  webs  of  the  stringer,  rods 
for  the  upper  flanges,  beams  for  the  lower  flanges,  and  plates  for  the 
slab.   The  aspect  ratio  for  the  web-plate  elements  was  approximately  7:1. 
The  resulting  center  deflection  of  an  interior  span  was  .1036  feet.  Example 
(a)  shows  the  same  beam  model  but  using  beam  elements  for  the  stringers, 
slave  connected  to  the  deck  plate  elements.   Run  (d)  is  the  same  continuous 
beam  as  run  (c)  with  288  nodes  selected  in  such  a  way  as  to  keep  the  aspect 
ratio  below  1.5  for  the  plane  elements  in  both  the  web  and  deck.   This 
time  the  deflection  increased  to  .1839  feet. 

Run  (b)  used  the  slave  beam  with  288  nodes.   This  time  the  deflection 
reduced  from  .2289  feet  for  run  (a)  to  .2142  feet.   It  is  evident  from 
these  results  that  the  slave  connected  beams  converge  faster  to  the  same 
solution  with  increasing  nodes  than  do  the  models  using  plate  elements 
for  the  webs.   As  the  number  of  nodes  are  increased,  both  types  of  models 
will  tend  to  converge  to  the  same  answer. 

However,  notice  that  it  takes  almost  five  times  as  much  computer  time 
to  model  according  to  run  (d)  as  it  does  to  model  according  to  run  (a) , 
and  we  still  do  not  have  the  same  degree  of  accuracy  with  the  plate-web 


*   It  is  assumed  that  convergence  reaches  the  true  solution. 
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TABLE  8  -  DEFLECTION  VALUES  AND  SOLUTION  TIMES  FOR  FOUR 

COMPUTER  RUNS  ON  A  SINGLE  STRINGER  OF  BRIDGE  #1 


Solution 

Deflection 

Time 

Run 

in  feet 

Condition 

Nodes 

Sec. 

a 

.2289 

** 
Slave 

92 

44.71 

b 

.2142 

Slave 

288 

154.33 

c 

.1036 

Web  PI. 
Rod  Fl. 
Beam  Fl. 

92 

69.55 

d 

.1839 

ti 

288 

219.61 

*  Rods  were  used  for  the  upper  flange  of  the  stringer  to  save 
on  cost.  Beams  were  necessary  for  the  lower  flange  of  the 
stringer  to  avoid  singularities. 

**  Beams  were  used  for  the  stringer  slave  connected  to  the 
plate-shell  elements  of  the  slab. 
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model.   Run  (a)  uses  the  same  spaces  between  node  points  as  is  used  for 
bridge  #1;  and  bridge  #1  very  closely  approximated  the  experimental 
results.  To  the  author's  way  of  thinking  this  is  good  enough  for  pre- 
liminary design  without  going  to  closer  node  spacing.  The  web-plate 
model  is  prohibitive  in  cost,  especially  when  we  consider  that  solution 
time  for  a  bridge  input  would  be  approximately  four  times  the  above 
solution  time  for  a  single  stringer.   It  should  also  be  noted  that  runs 
(a)  through  (d)  were  programmed  on  a  CDC  6400  machine.   An  IBM  360/370 
is  much  slower  than  a  CDC  6400  machine.  Consequently,  the  solution 
time  could  be  extremely  important. 

2.  Simple  Beam  Studies 

Several  simple  beam  studies  were  made  to  assess  the  accuracy  of 
computer  results  with  theory  along  several  sections  of  the  beam.  Figure 
25  shows  a  schematic  view  of  the  beam  with  node,  beam  element,  and  slab 
element  numbering.   Essentially,  a  W  10x21  steel  beam  was  chosen  for  the 
stringer,  shear  connected  to  a  4"  thick,  16"  wide  concrete  deck.  The 
length  between  simple  supports  was  8  feet. 

Figure  26  shows  a  comparison  of  moment,  shear,  and  deflection 
computer  values  with  hand  calculations  using  a  composite  beam  theory. 
The  results  are  quite  favorable  when  the  modeling  is  done  with  a  beam 
element  for  the  stringer,  slave  connected  to  plate  elements  for  the  slab. 

Alternately,  Figure  27  shows  a  similar  comparison  when  the  beam  was 
modeled  with  rods  for  the  stringer  flanges,  plates  for  the  stringer  webs 
and  slab.   In  this  run  a  variation  was  tried  of  using  a  steel  plate 
element  to  connect  the  upper  beam  flange  with  the  center  of  gravity  of  the 
deck  slab.   Notice  that  the  resulting  computer  results  were  not  too  good. 

3.  Singularities 

At  this  time  it  might  be  well  to  discuss  singularities  in  the 
program  output.  When  any  part  of  the  structure  can  move  without  restraint, 
then  singularities  in  the  solution  of  the  stiffness  matrix  may  occur.   In 
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FIG.   26  -   COMPARISON  OF  MOMENT,  SHEAR  AND  DEFLECTION  CALCULATIONS  FOR  SIMPLE 
BEAM  -  COMPUTER  RESULTS  VERSUS  THEORY  -  FOR  SLAVE  BEAM  INPUT. 
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FIG.  27  -  COMPARISON  OF  MOMENT,  SHEAR,  AND  DEFLECTION  FOR  SIMPLE  BEAM  - 
ROD  AND  PLATE  INPUT. 
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most  cases  this  will  indicate  possible  instability  of  the  structure. 
In  some  instances,  these  messages  serve  as  a  warning  that  nodal  degrees 
of  freedom  having  an  undefined  stiffness  (such  as  rotations  in  an  all- 
truss  model  or  rotations  about  an  axis  normal  to  a  shallow  shell-plate 
element)  have  not  been  deleted.   Table  B-l  taken  from  SAP  IV,    lists  the 
degrees  of  freedom  that  define  stiffness  for  the  TRUSS,  BEAM  and  PLATE- 
SHELL  elements.   Normally  the  plate-shell  element  has  all  six  degrees 
of  freedom  defined.  However,  in  the  analysis  of  flat  plates  the  stiff- 
ness associated  with  the  rotation  normal  to  the  shell  surface  is  not 
defined;  therefore,  the  rotation  normal  degrees  of  freedom  must  not  be 
included  in  the  analysis. 

For  this  reason,  when  singularities  occurred  they  were  examined  to 
see  if  they  were  related  to  rotations  about  an  axis  perpendicular  to  the 
plane  of  the  bridge  deck.   If  so,  those  node  points  associated  with  the 
deck  elements  were  restrained  about  the  axis;  i.e.,  an  appropriate  number 
1  was  coded  for  the  boundary  condition  code  in  the  coordinate  input  data. 
Unfortunately,  some  of  the  singularities  were  attributed  to  rotation  of 
the  web-plete  elements  of  the  stringers,  where  it  is  impossible  to  restrain 
the  rotation  of  these  elements  about  an  axis  perpendicular  to  the  plane 
of  the  web  without  destroying  the  true  deflection  situation.   This  is 
another  reason  for  using  the  plate  beam  element  to  model  the  entire 
stringer. 

In  the  case  where  singularities  occurred  because  of  rotation  of  the 
slab  element,  similar  computer  runs  were  made  with  and  without  normal 
restraint  to  these  elements.   There  was  very  little  difference  in  the 
results  for  all  bridges  investigated. 

4.   Master  Slave  Relationships 

According  to  SAP  IV  instructions,  a  master  slave  relationship  was 
violated  in  this  program;  i.e.,  master  and  slave  nodes  must  be  beam  only 
nodes;  and  that  no  other  element  type  may  be  connected  as  a  slave.   It 


*   See  User's  Manual,  Appendix  B,  page  B-4, 
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is  supposed  that  this  restriction  was  placed  in  the  SAP  IV  User's 
Manual     primarily  to  insure  that  beam  elements  which  are  slave  con- 
nected to  other  elements  having  undefined  degrees  of  freedom  would  not 
in  turn  have  undefined  degrees  of  freedom.   In  the  case  of  the  straight 
bridges  there  is  really  very  little  tendency  for  the  plate-slab  elements 
to  rotate  about  an  axis  perpendicular  to  the  plane  of  the  deck.   There- 
fore, the  fact  that  these  elements  are  undefined  for  this  rotation  should 
not  cause  any  really  great  concern. 

In  the  case  of  a  skewed  deck  there  might  be  a  tendency  for  signifi- 
cant rotation  about  a  normal  to  the  plate-shell  elements.   Yet,  restrain- 
ing these  elements  from  that  rotation  when  singularities  are  listed 
would  make  the  analysis  unreal.   The  author  did  not  have  enough  experience 
with  the  computer  program  to  assess  the  error  caused  by  omitting  this 
rotational  restraint  for  the  skew  deck  bridge.   In  fact,  singularities 
for  bridge  #3  could  not  be  eliminated.  Nevertheless,  the  good  correla- 
tion between  predicted  and  measured  responses  for  this  bridge  reduced 
the  significance  of  the  problem  but  did  not  eliminate  it. 
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IV.  Bridge  #2 

1.  Genera  1 

During  the  remainder  of  this  report,  we  will  present  input  data, 
output  data,  and  correlation  with  experimental  results  for  the  beam  ele- 
ment girder,  shell-plate  deck  type  of  modeling,  although  other  modeling 
schemes  were  investigated.   In  all  cases  it  turned  out  that  the  use  of  beam 
elements  for  the  stringers,  slave  connected  to  the  plate-shell  elements  for 
the  deck  gave  the  best  correlation,  taking  into  account  cost  per  computer 
run,  aspect  ratio,  and  convergence  to  the  true  solution. 

2.  Description 

Bridge  #2  shown  in  Figures  1  and  2  was  composed  of  AASHO  Type  III 

precast,  prestressed  sections  and  was  a  widely  used  type  of  bridge  in 

Tennessee.   It  had  a  20  skew,  a  grade  of  approximately  A  1/2%  and  a 

it 
superelevated  roadway  due  to  a  4  1/2  degree  horizontal  curve.   Bridge  if 2 

was  built  in  1962  on  State  Route  130  over  the  Boiling  Fork  Creek.   Figures 
E-6  through  E-10  show  details  of  the  bridge  taken  from  construction  drawings, 
The  tests  and  computer  analysis  described  here  is  for  the  end  span  of  the 
bridge  fartherest  from  Winchester,  Tennessee.   A  choice  had  to  be  made 
between  the  dimensions  of  Figure  8  taken  from  reference  (1)  and  the  dimen- 
sions shown  in  Figure  E-6  based  on  construction  drawings.   Arbitrarily  as 
a  first  analysis  of  the  bridge,  the  author  decided  to  use  the  dimensions 
shown  in  Figure  8  as  a  simplification,  and  also  decided  to  eliminate  the 
superelevation  for  the  first  trial.  When  the  results  of  the  computer 
analysis  showed  marginal  correlation,  the  author  reprogrammed  for  further 
refinement  of  the  geometry  of  the  bridge.   Figure  28  describes  the  node 
numbering,  Figure  29  the  beam  element  numbering,  and  Figure  30  the  plate 
element  numbering  for  the  deck. 


*   The  end  span  of  the  bridge  that  was  modeled  in  the  computer  prograir  had 
a  15°  skew,  although  the  center  span  had  a  20°  skew.   See  page  E-7 . 
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3.   Modulus  of  Elasticity 
From  Table  6: 


f 

c 

SB 

ED 

5,500 

E 
c 

57,500  x  •  f 
c 

- 

?7     Crtn                ..- 

:?7t^>0U  x     /  5   500 

1,000  x    r  D»DUU 

SB 

4266.5  psi  x  103 

EX 

4266.5  psi  x  144 

fm 

614376  ksf 

The  calculations  for  the  plane  stress  properties  are  similar  to 
those  of  bridge  #1 


C   -  C     628517.58 
xx    yy 


C   -  94277.63 
xy 


G   -  267119.97 
xy 


4.  Moments  of  Inertia 

Bending  and  torsional  moments  of  inertia  were  calculated  for  the 
Type  III  concrete  beam  as  shown  in  Figure  31  considering  a  homogeneous 
beam.   Figure  32  shows  the  corresponding  calculations  for  a  concrete  beam 
diaphragm  at  the  end  bent  and  the  intermediate  location  as  shown  in 
Figure  E-8. 

5.  Input  Listing 

Figure  33  shows  the  input  data  for  bridge  #2. 
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♦♦BRIOGE  NO.  2  SUPERELEVATED-FIRST  SPAN  <2500»  DIMENSIONED  AS  IN  REPORT 

NUMBER  OF  NODAL  POINTS  =  195 
NUMBER  OF  ELEMENT  TYPES  =  2 
NUMBER  OF  LOAO  CASES      =     1 

NOOAL  POINT  IN°UT  OATA 


NODE 

BOUNOARY 

CONOITION 

COOES 

NOOAL    POINT 

COORDINATES 

NUMBER 

X 

Y 

Z 

XX 

YY 

ZZ 

X 

Y 

Z 

T 

1 

-0 

-0 

-0 

-0 

-0 

-0 

0.000 

34.500 

3.120 

-0 

-0.000 

2 

1 

1 

1 

-0 

-0 

-0 

1.085 

30.151 

2.730 

-0 

-0.000 

3 

2 

2 

2 

2 

2 

2 

1.085 

30.151 

.252 

-0 

-0.000 

4 

-0 

-0 

-0 

-0 

-0 

-0 

2.163 

25.850 

2.340 

-0 

-0.000 

5 

1 

1 

1 

-0 

-0 

-0 

3.240 

21.549 

1.940 

-0 

-0.000 

6 

5 

5 

5 

5 

5 

5 

3.240 

21.549 

-.538 

-0 

-0.000 

7 

-0 

-0 

-0 

-0 

-0 

-0 

4.317 

17.253 

1.560 

-0 

-0.000 

8 

1 

1 

1 

-0 

-0 

-0 

5.394 

12.951 

1.170 

-0 

-0.000 

9 

8 

8 

8 

8 

8 

8 

5.394 

12.951 

-1.308 

-0 

-0.000 

10 

-0 

-0 

-0 

-0 

-0 

-0 

6.473 

8.645 

.780 

-0 

-0.000 

11 

1 

1 

1 

-0 

-0 

-0 

7.551 

4.339 

.390 

-0 

-0.000 

12 

11 

11 

LI 

11 

11 

11 

7.551 

4.339 

-2.088 

-0 

-0.000 

13 

-0 

-0 

-0 

-0 

-0 

-0 

8.634 

0.000 

0.000 

-0 

-0.000 

14 

-0 

-0 

-0 

-0 

-0 

-0 

5.000 

34.500 

3.278 

-0 

-0.000 

15 

-0 

-0 

-0 

-0 

-0 

-0 

6.085 

30.151 

2.888 

-0 

-0.000 

16 

15 

15 

15 

15 

15 

15 

6.085 

30.151 

.410 

-0 

-0.000 

17 

-0 

-0 

-0 

-0 

-0 

-0 

7.163 

25.850 

2.497 

-0 

-0.000 

16 

-0 

-0 

-0 

-0 

-0 

-0 

8.240 

21.549 

2.097 

-0 

-0.000 

19 

18 

18 

18 

18 

18 

18 

8.240 

21.549 

-.381 

-0 

-0.000 

20 

-0 

-0 

-0 

-0 

-0 

-0 

9.317 

17.250 

1.716 

-0 

-0.000 

21 

-0 

-0 

-0 

-c 

-0 

'0 

10.394 

12.9T1 

1.325 

-0 

-0.000 

22 

21 

21 

21 

21 

21 

21 

10.394 

12.951 

-1.153 

-0 

-0.000 

23 

-0 

-0 

-0 

-0 

-0 

-0 

11.473 

8.645 

.935 

-0 

-0.000 

24 

-0 

-0 

-0 

-0 

-0 

-0 

12.551 

4.339 

.544 

-0 

-0.000 

25 

24 

24 

24 

24 

24 

24 

12.551 

4.339 

-1.934 

-0 

-0.000 

26 

-0 

-0 

-0 

-0 

-0 

-0 

13.63(4 

0.000 

.154 

-0 

-0.Q00 

27 

-0 

-0 

-0 

-0 

-0 

-0 

10.000 

34.500 

3.437 

-0 

-0.000 

26 

-0 

-0 

-0 

-0 

-0 

-0 

11.085 

30.151 

3.046 

-0 

-0.000 

29 

28 

28 

28 

28 

28 

28 

11.085 

30.151 

.568 

-0 

-0.000 

30 

-0 

-0 

-0 

-0 

-0 

-0 

12.163 

25.850 

2.654 

-0 

-0.000 

31 

-0 

-0 

-0 

-0 

-0 

-0 

13.240 

21.549 

2.253 

-0 

-0.000 

32 

31 

31 

31 

31 

31 

31 

13.240 

21.549 

-.225 

-0 

-0.000 

33 

-0 

-0 

-0 

-0 

-0 

-0 

14.317 

17.250 

1.872 

-0 

-0.000 

34 

-0 

-0 

-0 

-0 

-0 

-0 

15.394 

12.951 

1.481 

-0 

-0.000 

35 

34 

34 

34 

34 

34 

34 

15.394 

12.951 

-.997 

-0 

-0.000 

36 

-0 

-0 

-0 

-0 

-0 

-0 

16.473 

8.645 

1.090 

-0 

-0.000 

37 

-0 

-0 

-0 

-0 

-0 

-0 

17.551 

4.339 

.699 

-0 

-0.000 

38 

37 

37 

37 

37 

37 

37 

17.551 

4.339 

-1.779 

-0 

-0.000 

39 

-0 

-0 

-0 

-0 

-0 

-0 

18.634 

0.000 

.307 

-0 

-0.000 

4(1 

-0 

-0 

-0 

-0 

-0 

-0 

15.000 

34.500 

3.595 

-0 

-0.000 

41 

-0 

-0 

-0 

-0 

-0 

-0 

16.085 

30.151 

3.203 

-0 

-0.000 

42 

Al 

41 

41 

41 

41 

41 

16.085 

30.151 

.725 

-0 

-0.000 

43 

-0 

"0 

-0 

-0 

-0 

-0 

17.163 

25.850 

2.812 

-0 

-0.000 

44 

-0 

-0 

"0 

-0 

-0 

-0 

18.240 

21.549 

2.410 

-0 

-0.000 

45 

44 

44 

44 

44 

44 

44 

18.240 

21.549 

-.068 

-0 

-0.000 

46 

-0 

-0 

-0 

-0 

-0 

-0 

19.317 

17.250 

2.028 

-0 

-0.000 

47 

-0 

-0 

-0 

-0 

-0 

-0 

20.394 

12.951 

1.636 

-0 

-0.000 

48 

47 

47 

47 

47 

47 

47 

20.394 

12.951 

-.842 

-0 

-0.000 

49 

-0 

-0 

-0 

-0 

-0 

-0 

21.473 

8.645 

1.245 

-0 

-0.000 

50 

-0 

-0 

-0 

-0 

-0 

-0 

22.551 

4.339 

.853 

-0 

-0.000 

51 

50 

50 

50 

50 

50 

50 

22.551 

4.339 

-1.625 

-0 

-0.000 

52 

-0 

-0 

-0 

-0 

-0 

-0 

23.634 

0.000 

4.461 

-0 

-0.000 

53 

-0 

-0 

-0 

-0 

-0 

-0 

20.000 

34.500 

3.754 

-0 

-0.000 

54 

-0 

-0 

-0 

-0 

-0 

-0 

21.085 

30.151 

3.361 

-0 

-0.000 

55 

54 

54 

54 

54 

54 

54 

21.085 

30.151 

.883 

-0 

-0.000 

56 

-0 

-0 

-0 

-0 

-0 

-0 

22.163 

25.850 

2.969 

-0 

-0.000 

57 

-0 

-0 

-0 

-0 

-0 

-0 

23.240 

21.549 

2.566 

-0 

-0.000 

58 

57 

57 

57 

57 

57 

57 

23.240 

21.549 

.088 

-0 

-0.000 

59 

-0 

-0 

-0 

-0 

-0 

-0 

24.317 

17.250 

2.184 

-0 

-0.000 

60 

-0 

-0 

-0 

-0 

-0 

-0 

25.394 

12.951 

1.792 

-0 

-0.000 

61 

60 

60 

60 

60 

60 

60 

25.394 

12.951 

-.686 

-0 

-0.000 

62 

-0 

-0 

-0 

-0 

-0 

-0 

26.473  , 

8.645 

1.400 

-0 

-0.000 

FIG.   33  -  INPUT  DATA  FOR  BRIDGE  #2 
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63 

-a 

-0 

-0 

-0 

-0 

-0 

27.551 

4.339 

1.007 

-0 

-0.000 

6«t 

63 

63 

63 

63 

63 

63 

27.551 

4.339 

-1.471 

-0 

-0.000, 

65 

-0 

-0 

-0 

-0 

-0 

-0 

28.634 

0.000 

.615 

-0 

-0.000 

66 

-0 

-0 

-0 

-0 

-0 

-0 

25.000 

34.500 

3.912 

-0 

-0.000 

67 

-0 

-0 

-0 

-0 

-0 

-0 

26.085 

30.151 

3.519 

-0 

-0.000 

68 

67 

67 

67 

67 

67 

67 

26.085 

30.151 

1.041 

-0 

-0.000 

69 

-0 

-0 

-0 

-0 

-0 

-0 

27.163 

25.850 

3.126 

-0 

-0.000 

70 

-0 

-0 

-0 

-0 

-0 

-0 

28.240 

21.549 

2.723 

-0 

-0.000 

71 

70 

70 

70 

70 

70 

70 

28.240 

21.549 

.245 

-0 

-0.000 

72 

-0 

-0 

-0 

-0 

-0 

-0 

29.317 

17.250 

2.340 

-0 

-0.000 

73 

-0 

-0 

-0 

-0 

-0 

-0 

30.394 

12.951 

1.947 

-0 

-0.000 

7*. 

73 

73 

73 

73 

73 

73 

30.394 

12.951 

-.531 

-0 

-0.000 

75 

-0 

-0 

-0 

-0 

-0 

-0 

31.473 

8.645 

1.554 

-0 

-0.000 

76 

-0 

-0 

-0 

-0 

-0 

-0 

32.551 

4.339 

1.162 

-0 

-0.000 

77 

76 

76 

76 

76 

76 

76 

32.551 

4.339 

-1.316 

-0 

-0.000 

78 

-0 

-0 

-0 

-0 

-0 

-0 

33.634 

0.000 

.769 

-0 

-0.000 

79 

-0 

-0 

-0 

-0 

-0 

-0 

30.000 

34.500 

4.070 

-0 

-0.000 

80 

-0 

-0 

-0 

-0 

-0 

-0 

31.085 

30.151 

3.677 

-0 

-0.000 

81 

80 

80 

80 

80 

80 

80 

31.085 

30.151 

1.199 

-0 

-0.000 

82 

-0 

-0 

-0 

-0 

-0 

-0 

32.163 

25.850 

3.283 

-0 

-0.000 

83 

-0 

-0 

-0 

-0 

-0 

-0 

33.240 

21.549 

2.880 

-0 

-0.000 

84 

83 

83 

83 

83 

83 

83 

33.240 

21.549 

.402 

-0 

-0.030 

85 

-0 

-0 

-0 

-0 

-0 

-0 

34.317 

17.250 

2.496 

-0 

-0.000 

86 

-0 

-0 

-0 

-0 

-0 

-0 

35.394 

12.951 

2.10  3 

-0 

-0.003 

87 

86 

86 

86 

86 

86 

86 

35.394 

12.951 

-.375 

-0 

-0.000 

88 

-0 

-0 

-0 

-0 

-0 

-0 

36.473 

8.645 

1.709 

-0 

-0.000 

89 

-0 

-0 

-0 

-0 

-0 

-0 

37.551 

4.339 

1.316 

-0 

-0.000 

90 

89 

89 

89 

89 

89 

89 

37.551 

4.339 

-1.162 

-0 

-0.000 

91 

-0 

-0 

-0 

-0 

-0 

-0 

38.634 

0.000 

.922 

-0 

-0.000 

92 

-0 

-0 

-0 

-0 

-0 

-0 

32.320 

34.500 

4.143 

-0 

-0.000 

93 

-0 

-0 

-0 

-0 

-0 

-0 

33.405 

30.151 

3.750 

-0 

-0.000 

94 

93 

93 

93 

93 

93 

93 

33.405 

30.151 

1.272 

-0 

-0.000 

95 

-0 

-0 

-0 

-0 

-0 

-0 

34.483 

25.850 

3.356 

-0 

-0.000 

96 

-0 

-0 

-0 

-0 

-0 

-0 

35.560 

21.549 

2.952 

-0 

-0.000 

97 

96 

96 

96 

96 

96 

96 

35.560 

21.549 

.474 

-0 

-0.000 

98 

-0 

-0 

-0 

-0 

-0 

-0 

36.637 

17.250 

2.569 

-0 

-0.000 

99 

-0 

-0 

-0 

-0 

-0 

-0 

37.714 

12.951 

2.775 

-0 

-0.000 

100 

«9 

99 

99 

99 

99 

99 

37.714 

12.951 

.297 

-0 

-0.000 

101 

-0 

-0 

-0 

-0 

-0 

-0 

38.783 

8.645 

1.781 

-0 

-0.000 

102 

-0 

-0 

-0 

-0 

-0 

-0 

39.871 

4.339 

1.388 

-0 

-0.000 

103 

102 

102 

102 

102 

102 

102 

39.871 

4.339 

-1.090 

-0 

-0.000 

104 

-0 

^-0 

-0 

-c 

-0 

-0 

40.954 

0.000 

.994 

-0 

-0.000 

105 

-0 

-0 

-0 

-0 

-0 

-0 

35.000 

34.500 

4.229 

-0 

-0.000 

106 

-0 

-0 

-0 

-0 

-0 

-0 

36.085 

30.151 

3.834 

-0 

-0.000 

107 

106 

106 

106 

106 

106 

106 

36.085 

30.151 

1.356 

-0 

-0.000 

108 

-0 

-0 

-0 

-0 

-0 

-0 

37.163 

25.850 

3.440 

-0 

-0.000 

109 

-0 

-0 

-0 

-t 

-0 

-0 

38.240 

21.549 

3.036 

-0 

•1.000 

110 

109 

109 

109 

109 

109 

109 

38.240 

21.549 

.558 

-0 

-0.000 

111 

-0 

-0 

-0 

-0 

-0 

-0 

39.317 

17.250 

2.652 

-0 

-0.000 

112 

-0 

-0 

-0 

-0 

-0 

-0 

40.394 

12.951 

2.258 

-0 

-0.000 

113 

112 

112 

112 

112 

112 

112 

40.394 

12.951 

-.220 

-0 

-0.000 

114 

-0 

-0 

-0 

-0 

-0 

-0 

41.473 

8.645 

1.864 

-0 

-0.000 

115 

-0 

-0 

-0 

-0 

-0 

-0 

42.551 

4.339 

1.470 

-0 

-0.000 

116 

115 

115 

115 

115 

115 

115 

42.551 

4.339 

-1.008 

-0 

-0.000 

117 

-0 

-0 

-0 

-0 

-0 

-0 

43.634 

0.000 

1.076 

-0 

-0.000 

118 

-0 

-0 

-0 

-0 

-0 

-0 

40.000 

34.500 

4.387 

-0 

-0.000 

119 

-0 

-0 

-0 

-0 

-0 

-0 

41.085 

30.151 

3.992 

-0 

-0.000 

120 

119 

119 

119 

119 

119 

119 

41.085 

30.151 

1.514 

-0 

-0.000 

121 

-0 

-0 

-0 

-0 

-0 

-0 

42.163 

25.850 

3.597 

-0 

-0.000 

122 

-0 

-0 

-0 

-0 

-0 

-0 

43.240 

21.549 

3.193 

-0 

-0.000 

123 

122 

122 

122 

122 

122 

122 

43.240 

21.549 

.715 

-0 

-0.000 

124 

-0 

-0 

-0 

-0 

-0 

-0 

44.317 

17.250 

2.808 

-0 

tO.OOO 

125 

-0 

-0 

-0 

-0 

-0 

-0 

45.394 

12.951 

2.414 

-0 

-o.ooo 

126 

125 

125 

125 

125 

125 

125 

45.394 

12.951 

-.064 

-0 

-0.000 

127 

-0 

-0 

-0 

-0 

-0 

-0 

46.473 

8.645 

2.019 

-0 

-0.000 

128 

-0 

-0 

-0 

-0 

-0 

-0 

47.551 

4.339 

1.625 

-0 

-0.000 

129 

128 

128 

128 

128 

128 

128 

47.551 

4.339 

-.853 

-0 

-0.000 

130 

-0 

-0 

-0 

-0 

-0 

-0 

48.634 

0.000 

1.230 

-0 

-0.000 

131 

-0 

-0 

-0 

-0 

-0 

-0 

45.000 

34.500 

4.545 

-0 

-0.000 

132 

-0 

-0 

-0 

-0 

-0 

-0 

46.0  85 

30.151 

4.150 

-0 

-0.000 

133 

132 

132 

132 

132 

132 

132 

46.085 

30.151 

1.672 

-0 

-0.000 

134 

-0 

-0 

-0 

-0 

-0 

-0 

47.163 

25.850 

3.755 

-0 

-0.000 

135 

-0 

-0 

-0 

-0 

-0 

-0 

48.240 

21.549 

3.349 

-0 

-0.000 

136 

135 

135 

135 

135 

135 

135 

48.240 

21.549 

.871 

-0 

-0.000 

137 

-0 

-0 

-0 

-0 

-0 

-0 

49.317 

17.250 

2.964 

-0 

-0.000 
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138 

-0 

-0 

-0 

-0 

-0 

-0 

50.394 

12.951 

2.569 

-0 

-0.000 

139 

138 

138 

138 

138 

138 

138 

50.394 

12.951 

.091 

-0 

-0.000 

140 

-0 

-0 

-0 

-0 

-0 

-0 

51.473 

8.645 

2.174 

-0 

-0.000 

141 

-0 

-0 

-0 

-0 

-0 

-0 

52.551 

4.339 

1.779 

-0 

-0.000 

142 

141 

141 

141 

141 

141 

141 

52.551 

4.339 

-.699 

-0 

-0.000 

143 

-0 

-0 

-0 

-0 

-0 

-0 

53.634 

0.000 

1.364 

-0 

-0.C0J 

144 

-0 

-0 

-0 

-0 

-0 

-0 

50.000 

34.500 

4.704 

-0 

-0.000 

145 

-0 

-0 

-0 

-0 

-0 

-0 

51.085 

30.151 

4.308 

-0 

-0.000 

146 

145 

145 

145 

145 

145 

145 

51.085 

30.151 

1.830 

-0 

-0.000 

147 

-0 

-0 

-0 

-0 

-0 

-0 

52.163 

25.850 

3.912 

-0 

-0.000 

1.48 

-0 

-0 

-0 

-C 

-0 

-0 

53.240 

21.549 

3.506 

-0 

-0.000 

149 

11.8 

148 

148 

148 

148 

148 

53.240 

21.549 

1.028 

-0 

-0.000 

150 

-0 

-0 

-0 

-0 

-0 

-0 

54.317 

17.250 

3.120 

-0 

-of.ooo 

151 

-0 

-0 

-0 

-0 

-0 

-0 

55.394 

12.951 

2.725 

-0 

■•-0.000 

152 

151 

151 

151 

151 

151 

151 

55.394 

12.951 

.247 

-0 

-0.000 

153 

-0 

-0 

-0 

-0 

-0 

-0 

56.473 

8.645 

2.329 

-0 

-0.000 

154 

-0 

-0 

-0 

-0 

'0 

-0 

57.551 

4.339 

1.933 

-0 

-0.000 

155 

154 

15*. 

154 

154 

154 

154 

57.551 

4.399 

-.545 

-0 

-0.000 

156 

-0 

-0 

-0 

-0 

-0 

-0 

58.634 

0.000 

1.537 

-0 

-0.000 

157 

-0 

-0 

-0 

-0 

-0 

-0 

55.000 

34.500 

4.862 

-0 

-0.000 

158 

-0 

-0 

-0 

-0 

-0 

-0 

56.085 

30.151 

4.465 

-0 

-0.000 

159 

158 

158 

158 

158 

158 

158 

56.085 

30.151 

1.987 

-0 

-O.000 

160 

-0 

-0 

-0 

-0 

-0 

-0 

57.163 

25.850 

4.069 

-0 

-0.000 

161 

-0 

-0 

f0 

-0 

-0 

-0 

58.240 

21.549 

3.663 

-0 

-0.000 

162 

161 

161 

161 

161 

161 

161 

58.240 

21.5  49 

1.185 

-0 

-0.000 

163 

-a 

-0 

-0 

-0 

-0 

-0 

59.317 

17.250 

3.276 

-0 

-0.000 

164 

-0 

-0 

-0 

-0 

-0 

-0 

60.394 

12.951 

2.880 

-0 

-0.000 

165 

16"* 

164 

164 

164 

164 

164 

60.394 

12.951 

.402 

-0 

-0.000 

166 

-0 

-0 

-0 

-0 

-0 

-0 

61.473 

8.645 

2.484 

-0 

-0.000 

167 

-0 

-0 

-0 

-0 

-0 

-0 

62.551 

4.339 

2.088 

-0 

-0.000 

168 

167 

167 

167 

167 

167 

167 

62.551 

4.399 

-.390 

-0 

•0.000 

169 

-0 

-0 

-0 

-C 

-0 

-0 

63.634 

O.OOG 

1.691 

-0 

•o.ooa 

170 

-0 

-0 

-0 

-0 

-0 

-0 

60.000 

34.50G 

5.021 

-0 

-0.000 

171 

-0 

-0 

-0 

-0 

-0 

-0 

61.085 

30.151 

4.623 

-0 

-0.000 

172 

171 

171 

171 

171 

171 

171 

61.035 

30.151 

2.145 

-0 

-0.000 

173 

-0 

-0 

-0 

-0 

-0 

-0 

62.163 

25.850 

4.226 

-0 

-0.000 

174 

-0 

-0 

-0 

-c 

-0 

-0 

63.240 

21.549 

3.819 

-0 

-0.000 

175 

174 

174 

174 

174 

174 

174 

63.240 

21.549 

1.431 

-0 

-0.000 

176 

-0 

-0 

-0 

-0 

-0 

-0 

64.317 

17.250 

3.432 

-0 

-0.000 

177 

-0 

-0 

-0 

-0 

-0 

-0 

65.394 

12.951 

3.035 

-0 

-0.000 

178 

177 

177 

177 

177 

177 

177 

65.394 

12.951 

.557 

-0 

-O.OOu 

179 

•  0 

-0 

-0 

-0 

-0 

-0 

66.473 

8.645 

2.639 

-0 

-0.000 

160 

-0 

-0 

-0 

-0 

-0 

-0 

67.551 

4.339 

2.242 

-0 

-0.000 

181 

180 

180 

180 

180 

180 

180 

67.551 

4.339 

-.236 

-0 

-0.000 

182 

-0 

-0 

-0 

-c 

-0 

-0 

68.634 

0.000 

1.845 

-0 

-0.000 

183 

-0 

-0 

-0 

-c 

-0 

-0 

66.006 

34.500 

5.150 

-0 

-0.000 

184 

-0 

1 

1 

-0 

-0 

-0 

66.854 

30.151 

4.760 

-0 

-0.000 

185 

184 

184 

184 

184 

184 

184 

66.854 

30.151 

2.282 

-0 

-0.000 

186 

-0 

-0 

-0 

-0 

-0 

-0 

67.693 

25.850 

4.370 

-0 

-0.000 

187 

-0 

1 

1 

-0 

-0 

-0 

68.531 

21.549 

3.970 

-0 

-0.000 

188 

187 

187 

187 

187 

187 

187 

68.531 

21.549 

1.492 

-0 

-0.000 

189 

-0 

-0 

-0 

-0 

-0 

-0 

69.369 

17.250 

3.590 

-0 

-0.000 

190 

-0 

1 

1 

-0 

-0 

-0 

70.207 

12.951 

3.200 

-0 

-0.000 

191 

190 

190 

190 

190 

190 

190 

70.207 

12.951 

.722 

-0 

-0.000 

192 

-0 

-0 

-0 

-0 

-0 

-0 

71.054 

8.645 

2.810 

-0 

-0.000 

193 

-0 

1 

1 

-0 

-0 

-0 

71.886 

4.339 

2.420 

-0 

-0.000 

194 

193 

193 

193 

193 

193 

193 

71.886 

4.339 

-.058 

-0 

-0.000 

195 

•0 

-0 

-0 

-C 

-0 

-0 

72.732 

0.000 

2.030 

-0 

-0.000 

GENERATED  NODAL  DATA 


NODE 


BOUNOARY    CONDITION    CODES 


NODAL    POINT    COORDINATES 


NUMBER 

X 

Y 

Z 

XX 

YY 

zz 

X 

Y 

Z 

T 

1 

-0 

-0 

-0 

-0 

-0 

-0 

0.000 

34.500 

3.120 

-0.000 

2 

1 

1 

1 

-0 

-0 

-0 

1.085 

30.151 

2.730 

•0.000 

3 

2 

2 

2 

2 

2 

2 

1.085 

30.151 

.252 

-0.000 

4 

-0 

-0 

-0 

-0 

-0 

-0 

2.163 

25.850 

2.340 

-0.000 

5 

1 

1 

1 

-0 

-0 

-0 

3.240 

21.549 

1.940 

-0.000 

6 

5 

5 

5 

5 

5 

5 

3.240 

21.549 

-.538 

-0.000 

7 

-0 

-0 

-0 

-0 

-0 

-0 

4.317 

17.250 

1.560 

-0.000 

8 

1 

1 

1 

-0 

-0 

-0 

5.394 

12.951 

1.170 

-0.000 

9 

8 

8 

8 

8 

8 

8 

5.394 

12.951 

-1.308 

-0.000 

10 

-0 

-0 

-0 

-0 

-0 

-0 

6.473 

8.645 

.780 

-0.000 

11 

1 

1 

1 

-0 

-0 

-0 

7.551 

4.339 

.390 

-0.000 

12 

11 

11 

11 

11 

11 

11 

7.551 

4.339 

-2.088 

-0.000 
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13 

-0 

-0 

-0 

-0 

-0 

-0 

14 

-0 

-0 

-0 

-0 

-0 

-0 

15 

-0 

-0 

-0 

-0 

-0 

-0 

16 

15 

15 

15 

15 

15 

15 

17 

-0 

-0 

-0 

-0 

-0 

-0 

18 

-0 

-0 

-0 

-0 

-0 

-0 

19 

18 

18 

18 

18 

18 

18 

20 

-0 

-0 

-0 

-0 

-0 

-0 

21 

-0 

-0 

-0 

-c 

-0 

-0 

22 

21 

21 

21 

21 

21 

21 

23 

-0 

-0 

-0 

-0 

-0 

-0 

24 

-0 

-0 

-0 

-0 

-0 

-0 

25 

24 

24 

24 

24 

24 

24 

26 

-0 

-0 

-0 

-0 

-0 

-0 

27 

-0 

-0 

-0 

-0 

-0 

-0 

2d 

-0 

-0 

-0 

-0 

-0 

-0 

29 

28 

28 

28 

28 

28 

28 

30 

-0 

-0 

-0 

-0 

-0 

-0 

31 

-0 

-0 

-0 

-0 

-0 

-0 

32 

31 

31 

31 

31 

31 

31 

33 

-0 

-0 

-0 

-0 

-0 

-0 

34 

-0 

-0 

-0 

-0 

-0 

-0 

35 

34 

34 

34 

34 

34 

34 

36 

-0 

-0 

-0 

-0 

-0 

-0 

37 

-0 

-0 

-0 

-0 

tO 

-0 

38 

37 

37 

37 

37 

37 

37 

39 

-0 

-0 

-0 

-0 

-0 

-0 

40 

-0 

-0 

-0 

-0 

-0 

-0 

ill 

-0 

-0 

-0 

-0 

-0 

-0 

42 

41 

41 

41 

41 

41 

41 

43 

-0 

-0 

-0 

-0 

-0 

-0 

(»*• 

-0 

-0 

-0 

-0 

-0 

-0 

45 

44 

44 

44 

44 

44 

44 

46 

-0 

-0 

-0 

-0 

-0 

-0 

47 

-a 

-0 

-0 

-C 

-0 

-0 

48 

47 

47 

47 

47 

47 

47 

49 

-0 

-0 

-0 

-0 

-0 

-0 

50 

-0 

-0 

-0 

-0 

-0 

-0 

51 

50 

50 

50 

50 

50 

50 

52 

-0 

-0 

-0 

-0 

-0 

-0 

53 

-0 

-0 

-0 

-0 

-0 

-0 

54 

-0 

-0 

-0 

-0 

-0 

-0 

55 

54 

i* 

54 

54 

54 

54 

56 

-0 

-0 

-0 

-0 

-0 

-0 

57 

-0 

-0 

-0 

-0 

-0 

-0 

58 

57 

57 

57 

57 

57 

57 

59 

-0 

-0 

-0 

-0 

-0 

-0 

60 

-0 

-0 

-0 

-0 

-0 

-0 

61 

60 

60 

60 

60 

60 

60 

62 

-0 

-0 

-0 

-0 

-0 

-0 

63 

-0 

-0 

-0 

-0 

-0 

-0 

64 

63 

63 

63 

63 

63 

63 

65 

-0 

-0 

-0 

-0 

-0 

-0 

66 

-0 

-0 

-0 

-0 

-0 

-0 

67 

-0 

-0 

-0 

-0 

-0 

-0 

68 

67 

67 

67 

67 

67 

67 

69 

-0 

-0 

-0 

-0 

-0 

-0 

70 

-0 

-0 

-0 

-0 

-0 

-0 

71 

70 

70 

70 

70 

70 

70 

72 

-0 

-0 

-0 

-0 

-0 

-0 

73 

-0 

-0 

-0 

-0 

-0 

-0 

74 

73 

73 

73 

73 

73 

73 

75 

-0 

-0 

-0 

-0 

-0 

-0 

76 

-0 

-0 

-0 

-0 

-0 

-0 

77 

76 

76 

76 

76 

76 

76 

78 

-0 

-0 

-0 

-0 

-0 

-0 

79 

-0 

-0 

-0 

-0 

-0 

-0 

80 

-0 

-0 

-0 

-0 

-0 

-0 

81 

80 

80 

80 

80 

80 

60 

82 

-0 

-0 

-0 

-0 

-0 

-0 

83 

-0 

-0 

-0 

-0 

-0 

-0 

84 

83 

83 

83 

83 

83 

83 

85 

-0 

-0 

-0 

-0 

-0 

-0 

86 

-0 

-0 

-0 

-0 

-0 

-0 

87 

86 

86 

86 

86 

86 

86 

88 

-0 

-0 

-0 

-0 

-0 

-0 

89 

-0 

-0 

-0 

-0 

-0 

-0 

90 

89 

89 

89 

89 

89 

89 

8.634  0.000  0.000  -0.000 

5.000  34.500  3.278  -0.000 

6.085  30.151  2.888  -0.000 
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83  331  332  333  334  335  336 

84  -83  -83  -83  -83  -83  -83 

85  337  338  339  340  341  342 

86  343  344  345  346  347  348 

87  -86  -86  -86  -86  -86  -86 

88  349  350  351  352  353  354 

89  355  356  357  358  359  360 

90  -89  -89  -89  -89  -89  -89 

91  361  362  363  364  365  366 

92  367  368  369  370  371  372 

93  373  374  375  376  377  378 

94  -93  -93  -93  -93  -93  -93 

95  379  380  381  382  383  384 

96  385  386  387  388  389  390 

97  -96  -96  -96  -96  -96  -96 

98  391  392  393  394  395  396 

99  397  398  399-  400  401  402 

100  -99  -99  -99  -99  -99  -99 

101  403  404  405  406  407  408 

102  409  410  411  412  413  414 

103  -102  -102  -102  -102  -102  -102 

104  415  416  417  418  419  420 

105  421  422  423  424  425  426 

106  427  428  429  430  431  432 

107  -106  -106  -106  -106  -106  -106 

108  433  434  435  436  437  438 

109  439  440  441  442  443  444 

110  -109  -109  -109  -109  -109  -109 

111  445  446  447  448  449  450 

112  451  452  453  454  455  456 

113  -112  -112  -112  -112  -112  -112 

114  457  458  459  460  461  462 

115  463  464  465  466  467  468 

116  -115  -115  -115  -115  -115  -115 

117  469  470  471  472  473  474 

118  475  476  «»77  478  479  480 

119  481  482  483  484  485  486 

120  -119  -119  -119  -119  -119  -119 

121  487  488  489  490  491  492 

122  493  494  495  496  497  498 

123  -122  -122  -122  -122  -122  -122 

124  499  500  501  502  503  504 
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509 

510 

125 

-125 

-125 

514 

515 

516 

520 

521 

522 

128 

-128 

-128 

526 

527 

528 

532 

533 

534 

538 

539 

540 

132 

-132 

-132 

5«»4 

545 

546 

550 

551 

552 

135 

-135 

-135 

556 

557 

558 

125  505      506      507 

126  -125   -125   -125 

127  511      512      513 

128  517      518      519 

129  -128    -128    -128 

130  523      524      525 

131  529      530      531 

132  535      536      537 

133  -132   -132    -132 
13<t      541      542      543 

135  547      548      549 

136  -135   -135   -135 

137  553      554      555 

138  559      560      561      562      563      564 

139  -138    -138    -138    -138    -138    -138 

140  565   566   567   568   569   570 

141  571   572   573   574   575   576 

142  •'141  -141  -141  -141  -141  -141 

143  577   578   579   580   581   582 

144  583   584   585   5,86   587   588 

145  589   590   591   592   593   594 

146  -145  -145  -145  -145  -145  -145 

147  595   596   597   598   599   600 

148  601   602   603   604   605   606 

149  -148  -148  -148  -148  -148  -148 

150  607   608   609   610   611   612 

151  613   614   615   616   617   618 

152  -151  -151  -151  -151  -151  -151 

153  619   620   621   622   623   624 

154  625   626   627   628   629   630 

155  -154  -154  -154  -154  -154  -154 

156  631   632   633   634   635   636 

157  637   638   63 ^   640   641   642 

158  643   644   645   646   647   648 

159  -158  -158  -158  -158  -158  -158 

160  649   650   651   652   653   654 

161  655   656   657   658   659   660 

162  -161  -161  -161  -161  -161  -161 

163  661   662   663   664   665   666 

164  667   668   669   670   671   672 

165  -164  -164  -164  -164  -164  -164 

166  673   674   675   676   677   678 

167  679   680   681   682   683   684 

168  -167  -167  -167  -167  -167  -167 

169  685   686   687   688   689   690 

170  691   692   693   694   695   696 

171  697   698   699   70C   701   702 

172  -171  -171  -171  -171  -171  -171 

173  703   704   705   706   707   708 

174  709   710   711   712   713   714 

175  -174  -174  -174  -174  -174  -174 

176  715   716   717   718   719   720 

177  721   722   723   724   725   726 

178  -177  -177  -177  -177  -.177  -177 

179  727   728   729   730   731   732 

180  733   734   735   736   737   738 

181  -180  -180  -180  -180  -180  -180 

182  739   740   741   742   743   744 

183  745   746   747   748   749   750 

184  751     0     0   752   753   754 

185  -184  -184  -184  -184  -184  -184 

186  755   756   757   758   759   760 

187  761     0     0   762   763   764 

188  -187  -187  -187  -.187  -187  -187 

189  765       766      767      768      769      770 

190  771  0  0      772      773      774 

191  -190    -190    -190    -190    -190    -190 

192  775   776   777   778   779   780 

193  781     0     0   782   783   784 

194  -193  -193  -193  -193  -193  -193 

195  785   786   787   788   789   790 
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■THREE  OIMENSIONAL  BEAM  ELEMENTS 


NUMBER   OF    BEAMS 
NUMBER    OF    GEOMETRIC 
NUMBER    OP    FIXEO    END 
NUMBER    OF    MATERIALS 

PROPERTY    SETS= 
FORCE    SETS         = 

62 
3 
0 
1 

MATERIAL         YOUNG    S 
MODULUS 
1                       772307. 

POISSON    S 
RATIO 

.15000 

MASS 
OENSITY 
-0. 00000 

BEAM    GEOMETRIC    PROPERTIES 

ELEMENT                AREA 
TYPE                           X 

1  3.685 

2  2.063 

3  2.938 

AREA 
Y 
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2.938 

AREA                   INERTIA 

Z                             X 
-0.000                      .329 
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46 

149 

162 

146 

-0 

-0 

-0 

-0 

47 

152 

165 

151 

-0 

-0 

-0 

-0 

48 

155 

168 

154 

-0 

-0 

-0 

-0 

49 

159 

172 

158 

-0 

-0 

-0 

-0 

50 

162 

175 

161 

-0 

-0 

-0 

-0 

51 

165 

178 

164 

-0 

-0 

-0 

-0 

52 

168 

181 

167 

-0 

-0 

-0 

-0 

53 

172 

185 

171 

-0 

-0 

-0 

-0 

54 

175 

188 

17<. 

-0 

-0 

-0 

-0 

55 

178 

191 

177 

-0 

-0 

-0 

-a 

56 

181 

194 

180 

-0 

-0 

-0 

-0 

57 

6 

3 

5 

1     3 

-0 

-0 

-0 

-0 

58 

9 

6 

6 

1     3 

-0 

-0 

-0 

-0 

59 

12 

9 

11 

1     3 

-0 

-0 

-0 

-0 

60 

188 

185 

187 

1     2 

-0 

-0 

-0 

-0 

61 

191 

188 

190 

1     2 

-0 

-0 

-0 

-0 

62 

194 

191 

193 

1     2 

-0 

-0 

-0 

-0 

...THIN  ELASTIC 

SHELL 

ELEMENTS. 

•  • 

ELEMEI 

a  ty 

?  OF 

NUMBE 

NUMBER  OF 

-0 
-0 
-0 
-0 
-0 
-0 
-0 
-0 
-0 
-0 
-0 
-0 
-0 
-0 
-0 
-0 
-0 


...MATERIAL  PROPERTY  INFORMATION... 
TYPE 

1  -0. 


MASS         THERMAL    EXPANSION    COEFFICIENTS 
DENSITY  AX  AY  AZ 


•0. 


-0. 


-0. 


CXX  CXY 

.6285E  +  06    .9428E«-05». 


.ELASTIC    COEFFICIENTS 

CXG  CYY  CYG 


.6285E+06*. 


GXY 


.2671E+06 


...ELEMENT    LOAD    MULTIPLIERS... 


LOAD    CASE 

1 
2 
3 
4 

•ELEMENT   OATA* 


LATERAL    LOAO 


-O.0C0O0 
■0.00000 
■0.00000 
-0.00000 


TEMPERATURE 

-0.00000 
-0.00000 
-0.00000 
-0.00000 


GRAVITY  ACCELERATION 

X-COMPONENT  Y-COMPONENT  Z-COMPONENT 


■0.00000 
■0.00000 
-0.00000 
-0.00000 


■0.00000 
■0.00000 
■0.00000 
■0.00000 


-0.00000 
-0.00000 
-0.00000 
-O.000G0 


LEMENT 

NODAL 

POINT 

NUHBERS 

MATL 

TEMPERATURE 

NUMBER 

I 

J 

K 

L 

O 

TYPE    THICKNESS 

PRESSURE 

TEMPERATURE 

GRADIENT 

1 

2 

15 

14 

1 

-0 

1        .5833 

0.0000 

0.0000 

0.0000 

2 

4 

17 

15 

2 

-0 

1        .5833 

0.0000 

0.0000 

0.0000 

3 

5 

18 

17 

4 

-0 

1        .5833 

0.0000 

0.0000 

0.0000 

4 

7 

20 

18 

5 

-0 

1        .5833 

0.0000 

0.0000 

0.0000 

5 

8 

21 

20 

7 

-0 

1        .5833 

0.0000 

0. 0000 

0.0000 

6 

10 

23 

21 

8 

-0 

1        .5833 

0.0000 

0.0000 

0.0000 

7 

11 

24 

23 

10 

-0 

1        .5833 

0.0000 

0.0000 

0.0000 

8 

13 

26 

24 

11 

-0 

1        .5833 
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0.0000 
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15 

28 

27 

14 

-0 

1        .5833 

0.0000 

0.0000 

0.0000 

10 

17 

30 

28 

15 

-0 
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o.cooo 

0.0000 

11 
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31 
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17 
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0.0000 

13 

21 

34 

33 

20 

-0 

1        .5833 

0.0000 

0.0000 

0.0000 

14 

23 

36 

34 

21 

-0 

1   •     .5833 

0.0000 

0.0000 

0.0000 
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O.GOOO 

78 

127 

1«.Q 

138 

125 

-0          1 

L         .5833 

0.0000 

0.0033 

0.0000 

79 

128 

141 

lbO 

127 

-0          J 

.5833 

0.0000 

3.00G0 

0.3800 

80 

130 

143 

141 

128 

-0        i 

L        .5833 

0.0000 

0.0000 

0.0030 

81 

132 

U5 

l«f4 

131 

-0          i 

L        .5833 

0.0000 

0.0000 

0.0030 

82 

13<» 

1U7 

1«.5 

132 

-0          1 

L        .5833 

0.0000 

0.0008 

0.0000 

83 

135 

148 

147 

134 

-0          i 

L        .5833 

0.0000 

3.0038 

0.0000 

8U 

137 

150 

148 

135 

rO                              1 

L        .5633 

G.OGOO 

8.0000 

0.0038 

85 

138 

151 

15C 

137 

-0          3 

L        .5833 

0.0000 

0.0000 

8.3380 
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138 

-0          i 

L        .5833 
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0.0000 

87 

1<»1 

15«» 

153 

140 
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L        .5633 

0.0000 

0.0000 

0.0000 

88 

143 
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1M 

-0         i 

L        .58  33 

0.0000 
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0.OG3O 
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1«»5 
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.5833 
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8.3800 

90 

1<»7 
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1<45 
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.5833 
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93 

151 

16<t 

163 

150 

-0 

1        .5833 

0.0000 

0.0000 

0.0000 

9«» 

153 

166 

16V 

151 

-0 

1        .5833 

0.0000 

0.0000 

0.0000 

95 

15U 

167 

166 

153 

-0 

1        .5833 

0.0000 

0.0000 

0.0000 

96 

156 

169 

167 

15V 

-0 

1        .5833 

0.0000 

0.0OG0 

0.0000 

97 

158 

171 

170 

157 

-0 

1        .5833 

0.0000 

0.0000 

0.0000 

98 

160 

173 

171 

158 

-0 

1        .5833 

0.0000 

0.0000 

0.0000 

99 

161 

17V 

173 

160 

-0 

1        .5833 

0.0000 

0.0000 

0.0000 

100 

163 

176 

17V 

161 

-0 

1        .5833 

0.0000 

0.0000 

0.0000 

101 

16V 

177 

176 

163 

-0 

1        .5833 

0.0000 

0.0000 

O.OGOO 

102 

166 

179 

177 

16V 

-0 

1        .5833 

0.0000 

0.0000 

0.0000 

103 

167 

180 

179 

166 

-0 

1        .5833 

0.0000 

0.0000 

0.3000 

101. 

169 

182 

180 

167 

-0 

1        .5833 

0.0000 

0.0000 

0.0000 

105 

171 

18V 

183 

170 

-0 

1        .5833 

0.0000 

0.0000 

0.0000 

106 

173 

186 

18V 

171 

-0 

1        .5833 

0.0000 

0.0000 

O.GOOO 

107 

17V 

187 

186 

173 

-0 

1        .5833 

0.0000 

0.0000 

0.0000 

108 

176 

189 

187 

17V 

-0 

1        .5833 

0.0000 

0.0000 

0.0000 

109 

177 

190 

189 

176 

-0 

1        .5833 

0.0000 

0.0000 

0.3000 

110 

179 

192 

190 

177 

-0 

1        .5833 

0.0000 

0.0000 

0.0000 

111 

180 

193 

192 

179 

-0 

1        .5833 

0.0000 

0.0000 

0.0000 

112 

182 

195 

193 

180 

-0 

1        .5833 

0.0000 

0.0000 

0.0000 

TOTAL    NUMBER    OF    EQUATIONS                 =  790 

BANDHIOTH                                                             =  66 

NUMBER    OF    EQUATIONS    IN    A    BLOCK    =  51 

NIIMRFR    OF    BLOCKS                                          =  16 


NOOE  LOAD 

s 

APPLIED 

LOADS 

NO.  CASE       RX 

RY 

RZ 

NX 

NY 

HZ 

5V       1 

.-0.000 

-0.000 

-26.334 

-0.000 

-0.000 

-0.000 

57     1 

-0.000 

-0.000 

-73.5V2 

-0.000 

-o.coo 

-0.000 

60     i 

-0.000 

-0.000 

-80.712 

-0.00  0 

-0.000 

-0.000 

63     1 

-G.000 

-o.ooc 

-23.298 

-0.00  0 

-0.000 

-0.000 

67     1 

-0.000 

-0.000 

-17.556 

-0.00  0 

-0.000 

-0.000 

7C     1 

-0.000 

-0.000 

-V9.G28 

-0.000 

-0.030 

-0.000 

73     1 

-0.000 

-0.000 

-53.808 

-0.000 

-0.000 

-0.000 

76     1 

-0.000 

•o.ooc 

-15.532 

-0.000 

-0.000 

-0.000 

10E     i 

-0.000 

-0.000 

-35.112 

-0.000 

-O.dOO 

-0.000 

109     i 

-0.030 

-0.000 

-98.056 

-0.000 

-0.030 

-0.000 

112     1 

-0.000 

-0.000 

-107.616 

-0.000 

-O.0OG 

-0.000 

115     i 

-0.000 

-0.000 

-31.06V 

-0.000 

-0.000 

-0.000 

115     1 

-0.000 

-0.000 

-8.778 

-0.000 

-0.000 

-0.000 

122     1 

-0.000 

-0.000 

-2V.51V 

-0.000 

-0.000 

-0.000 

125     1 

-0.000 

-0.000 

-26.90V 

-0.G00 

-0.000 

-0.000 

128     1 

-0.000 

-0.000 

-7.766 

-0.000 

-0.000 

-0.000 

Fig.      33  Continued. 
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6. 

Figure  34  is  a  listing  of  the  output  data  for  bridge  #2.   Total 
solution  time  on  a  CDC  6400  vas  145.24  seconds. 

7.   Correlation  of  Computer  and  Experiinental  Data  for  Bridge  #2 

Considerable  speculation  is  inferred  in  the  author's  comparison  of 
the  computer  analysis  and  experimental  data  for  bridge  #2,  since  some  of 
the  experimental  information  for  this  bridge  was  not  as  fully  reported  in 
reference  (1)  as  for  the  other  bridges.   First  of  all,  it  is  noticed  that 
the  loading  coefficients  -  Table  3  -  were  reconstructed  from  the  load 
deflection  curve  of  Figure  36  and  the  known  numbering  of  load  points  of 
Figure  8.   Arbitrarily  the  author  selected  a  total  load  of  680  kips  for 
input  into  the  computer.   As  for  bridge  #1,  a  moment  distribution  was  used 
to  translate  the  loading  to  points  on  the  girders.    Secondly,  the  load 
deflection  curve  for  the  exterior  beam  was  missing.   However,  Figure  37 
does  show  an  average  measured  deflection  curve  which  was  obtained  from 
the  average  of  the  deflection  readings  over  the  four  girders  over  the 
centerline  of  each  span.   By  the  use  of  Figures  36  and  37  we  may  thus  infer  an 
exterior  beam  deflection  for  a  bridge  load  of  430  kips  to  be  0.035  feet. 
The  430  total  kips  is  considered  to  be  a  maximum  loading  for  which  a  linear 
relationship  of  load  to  deflection  is  reasonably  justified.   Figure  35 
shows  the  variation  of  deck  distortion  with  loads  across  the  bridge. 

Table  9  shows  the  comparison  of  computer  and  experimental  results 
for  a  430  kip  total  bridge  load.  From  the  examination  of  these  results, 
it  is  thus  concluded  that  at  least  for  a  linear  load  deflection  relationship 
the  SSAP2  program  would  predict  the  responses  of  this  skew  bridge  rather 
well.  Overprinted  on  Figures  36  and  37  with  a  <D>  are  the  results  of  the 
computer  program.  Once  again  note  the  SSAP2  results  modeling  the  bridge 
as  a  grid  as  compared  to  a  computer  analysis  modeling  the  bridge  as  a 
single  beam. 
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.......NODE  DISPLACEMENTS  ANO  ROTATIONS 

NOOE   LOAD  X  V  Z 

195  1  -7.291E-03  -1.590E-05  1.086E-C3 

19*.  1  0.  0.  0. 

193  1  -7.398E-03  0.  0. 

192  1  -7.362E-03  8.136E-05  -8.327E-05 

191  1  0.  0.  0. 

190  1  -7.593E-03  0.  0. 

189  1  -7.37i.E-03  1.683E-05  -1.783E-0<. 

188  1  0.  0.  0. 

187  1  -7.376E-03  0.  0. 

186  1  -6.953E-03  -6.038E-C5  -1.53i»E-0<» 

185  1  0.  0.  0. 

18«i  1  -6.753E-03  0.  0. 

183  1  -6.<.58E-03  -1.833E-0<»  1.873E-03 

182  1  -6.890E-C3  7.181E-01*  -7.105E-03 

181  1  0.  0.  0. 

180  1  -6.92*»E-03  1.0U8E-03  -1.013E-02 

179  1  -6.810E-03  1.383E-03  -1.350E-02 

178  1  0.  0.  0. 

177  1  -6.967E-03  1.709E-03  -1.665E-02 

176  1  -6.730E-03  1.883E-03  -1.836E-02 

175  1  0.  0.  0. 

17ii  1  -6.761E-03  1.915E-03  -1.853E-02 

173  1  -6.U02E-03  1.787E-03  -1.691E-02 

172  1  0.  0.  0. 

171  1  -6.299E-03  1.523E-03  -1.392E-02 

170  1  -6.078E-03  1.201E-03  -9.928E-G3 

169  1  -6.1.27E-03  1. 5506-03  -1.576E-02 

166  1  0.  0.  0. 

167  1  -6.367E-03  2.126E-03  -2.133E-02 


XX 

tv 

72 

2.19E-C* 

-1.6<»E-03 

-3.88E-03 

0. 

0. 

0. 

<».29E-0<» 

-2.3JE-03 

-3.99E-C6 

2.69E-0<. 

-3.68E-03 

7.66E-03 

0. 

0. 

C 

6.36E-0*. 

-3.38E-03 

-2.<»6E-0<. 

3.71E-05 

-5.79E-03 

2.20E-C2 

0. 

0. 

0. 

6.75E-3^ 

-3.<»3E-03 

-<».OOE-0<. 

2.09E-0<» 

-*».71E-03 

1.56E-02 

0. 

0. 

0. 

5.32E-0<t 

-2.38E-03 

-5.06E-0<t 

2.<»OE-05 

-6.*t9E-03 

i..64E-=02 

1.52E-0<» 

-1.77E-03 

-l.^E-03 

0. 

0. 

0. 

1.22E-0<» 

-2.26E-03 

l.<»0E-0<. 

1.50E-0«i 

-3.19E-03 

1.97E-03 

0. 

0. 

0. 

3.02E-0I* 

-3.33E-03 

-1.17E-0** 

1.50E-03 

-1.11E-03 

-2.58E-02 

0. 

0. 

0. 

9.77E-C 

-3.3UE-03 

-5.16E-0'* 

1.38E-03 

-2.9<»E-03 

-7.15E-01* 

0. 

0. 

0. 

1.31E-03 

-2.29E-03 

-5.89E-0*. 

1.1.9E-03 

-1.97E-03 

1.18E-03 

2.1.3E-03 

8.5<»E-03 

-1.02E-01 

0. 

0. 

0. 

9.19E-C 

-2.10F-03 

1.65E-0<« 

FIG.   34  -  COMPUTER  RESULTS  FOR  BRIDGE  #2 
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-6.159E-03  2.798E-03  - 

0.  0. 

-6.233E-03  3.381E-G3  - 

-5.9U7E-03  3.679E-03  - 

0.  0. 
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-5.661E-03  2.81dE-o3  - 

-5.523E-03  2.2<tOE-03  - 

■»5.852E-03  2.215E-03  - 

0.  0. 

-5.691E-03  3.082E-03  - 

-5.385E-03  «».059E-03  - 

0.  0. 

-5.37«»E-03  4.903E-03  - 

-5.033E-03  5.317E-03  - 

0.  0. 

-5.082E-03  5.259E-03  - 

-<..8<45E-03  l».712E-03  - 

0.  0. 

-«».911E-03  3.9<>3E-03  - 

-l».858E-03  3.140E-03  - 

-5.163E-03  2.7J.7E-03  - 

0.  0. 

-«».915E-03  3.858E-03  - 

-t.507E-03  5.108Er03  - 

0.  0. 

-«..U03E-03  6.188E-03  - 
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•2.777E-02 

-«..15E-03 

-1.35E-02 

1.08E-01 

0. 

0. 

0. 

0. 

■3.331E-02 

-1.70E-0«t 

-3.12E-03 

-8.8<«E-05 

-3.587E-02 

7.02E-G<i 
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-1.97E-03 

0. 
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0. 

0. 
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0. 
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■1.858E-02 

3.86E-03 
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2.25E-01 

0. 

0. 

0. 

0. 

•3.1<»«»E-C2 

-1.65E-03 

-1.83E-03 

8.65E-05 

•«».073E-02 

7.83E-03 

2.77E-02 

-3.02E-01 

0. 

0. 

0. 

0. 

■«».857E-02 

-6.«»8E-0<. 

-2.76E-03 

-7.35E-05 
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5.66E-04 

-3.08E-03 

8.62E-05 

0. 

0. 

0. 

0. 

•5.025E-C2 

1.67E-03 

-2.70E-03 

-3.86E-0«i 

•<t.396E-02 

2.89E-03 

-1.09E-03 

-1.30E-02 

0. 

0. 

0. 

0. 

3.525E-02 

2.5<tE-03 

-1.79E-03 

-3.66E-0<» 

2.613E-02 

3.82E-0«i 

-8.01E-03 

6.68E-02 

2.93UE-02 

8.82E-0«» 

8.21E-03 

-9.i»7E-02 

0. 

0. 

0. 

0. 

(•.ooor-02 

-2.2<iE-03 

-1.U7E-03 

S.90E-05 

5.179E-02 

-<».53E-03 

-9.36E-03 

7.37E-02 

0. 

0. 

0. 

0. 

6.165E-02 

-1.10E-03 

-2.2«.E-Q3 

-S.23C-0S 

6.55SE-02 

6.57E-0* 

-1.93E-03 

-5.79E-03 
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136          1 

L          0. 

0. 

0. 

0. 

0. 

0. 

135 

L      -4.0B8E-03 

6.588E-03 

-6.295E-02 

1.92E-03 

-2.li.E-03 

-2.80E-0i» 

13d 

L      -3.920E-03 

5.859E-03 

-5.I.56E-02 

3.<.<»E-»03 

-2.I.5E-04 

-1.65E-02 

133          1 

.         0. 

0. 

0. 

0. 

0. 

0. 

132          1 

L      -«..07«.E-03 

4.873E-03 

-«»-3i»8E-02 

2.9I.E-03 

-1.38E-03 

-2.27E-0I. 

131 

L      -4.103E-03 

3.888E-03 

-3.239E-02 

2.26E-03 

-2.91E-03 

1.82E-02 

130        : 

L      -4.392E-03 

3.080E-03 

-3.389E-02 

-2.1.2E-03 

-2.85E-04 

-I..63E-03 

129          1 

L         0. 

0. 

0. 

0. 

0. 

0. 

128           1 

L      -«..0'.9E-O3 

4.397E-03 

-i».6«.5E-02 

-2.83E-03 

-9.9i.E-0i. 

1.02E-0/. 

127           i 

L      -3.547E-03 

5.878E-03 

-6.03i.E-02 

U.20E-03 

2.12E-02 

-2.28E-01 

126           i 

0. 

0. 

0. 

0. 

0. 

0. 

125           i 

-3.323E-03 

7.151E-03 

-7.17i.E-02 

-1.49E-Q3 

-1.55E-03 

-2.18E-05 

i2u        : 

L      -2.91<»E-03 

7.7<t7fc-  03 

-7.598E-02 

1.82E-0I* 

-2.3i.E-03 

5.79E-03 

123          i 

0. 

0. 

0. 

0. 

0. 

0. 

122          i 

L      -3.002E-03 

7.586E-03 

-7.2WE-02 

2.07E-03 

-1.42E-03 

-1.35E-0it 

121          i 

L      -2.939E-03 

6.701E-03 

-6.230E-02 

3.82E-03 

6.1.8E-01. 

-1.89E-02 

12C           1 

0. 

0. 

0. 

0. 

0. 

0. 

119           1 

-3.180E-03 

5.538E-03 

-4.9U2E-02 

3.17E-03 

-8.81E-0*. 

-6.72E-05 

lie        i 

i      -3.301E-03 

«».<»2<«E-03 

-3.700E-02 

-8.0i.E-03 

-3.53E-02 

3.50E-01 

117           i 

L      -3.59<»E-03 

3.186E-03 

-3.636E-02 

-9.71E-03 

-2.18E-02 

2.19E-01 

116           1 

L         0. 

0. 

0. 

0. 

0. 

0. 

115 

L      -3.133E-03 

«».fc<«2E-03 

-5.025E-02 

-3.28E-03 

-i».32E-0<» 

«t.50E-05 

114 

L      -2.5<»<.E-33 

6.283E-03 

-6.568E-02 

-3.36E-03 

-5.95E-0I. 

-1.58E-01. 

113 

L         0. 

0. 

0. 

0. 

0. 

0. 

112 

L      -2.1«.2E-03 

7.724E-03 

-7.781E-02 

-1.82E-03 

-6.86E-04 

1.25E-05 

ill         : 

L      -1.79<.E-03 

6.<.3<»E-03 

-8.232E-02 

2.<.0E-0<t 

-6.17E-0I* 

-6.69E-0I. 

110           1 

L        0. 

0. 

0. 

0. 

0. 

0. 

109 

L      -1.861E-03 

8.1«.6E-03 

-7.783E-02 

2.06E-03 

-5.3i.E-0i. 

5.37E-05 

ioe        i 

L      -1.97I4E-03 

7.125E-03 

-6.6<»i.E-02 

2.58E-03 

-2.75E-03 

2.29E-02 

107 

I        0. 

0. 

0. 

0. 

0. 

0. 

106 

L      -2.265E-03 

5.867E-03 

-5.260E-02 

3.20E-03 

-3.03E-04 

1.05E-0*. 

Fig. 
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L      -2.i»99E-03 
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1 0*> 
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103 
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0. 
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-1.11E-01. 

-2.56E-06 

101 

L      -2.053E-03 

6.256E-03 

-6.668E-02 

-3.57E-03 

-1.19E-01. 

-7.29E-01. 

100 

L          0. 

0. 

0. 

0. 

0. 

0. 

99 

L      -1.665E-03 

8.90<»E-03 

-7.896E-02 

-1.9<.E-03 

-1.28E-0I* 

i».57t»0S 

98 

L      -1.299E-03 

8.5<»6E-03 

-8.312E-02 

1.51E-01. 

-5.12E-05 

-U.20E-0". 

97 

L         0. 

0. 

0. 

0. 

0. 

0. 

96 

L      -1.282E-03 

8.192E-03 

-7.856E-02 

2.00E-03 

-3.11E-05 

1.58E-0<t 

95 

L      -H87E-03 

7.162E-03 

-6.701E-02 

3.32E-03 

3.30£-0<» 

•3.35E-03 

9<« 

L         0. 

0. 

0. 

0. 

0. 

0. 

93 

L      -l.79i.E-03 

5.881.E-03 

-5.298E-02 

3.14E-03 

2.18E-05 

t.97E-0<» 

92 

L      -2.088E-03 

<4.699E-03 

-3.990E-02 

2.38E-03 

-1.66E-03 

1.67E-02 

91 

L      -2.830E-03 

3.131E-03 

-3.692E-02 

-9.92E-03 

-2.16E-02 

2.20E-01 

90^ 

L         0. 

0. 

0. 

0. 

0. 

0. 

89 

L      -2.2E5E-03 

(..606E-Q3 

-5.093E-02 

-3.<«8E-03 

1.66E-0<» 

-<«.68E-05 

88 

L      -1.669E-03 

6.28UE-03 

-6.680E-02 

-3.62E-03 

2.86E-0<» 

-8.25E-0i» 

87 

L         0. 

0. 

0. 

0. 

0. 

0. 

86           1 

-l.15i.E-03 

7.728E-03 

-7.862E-02 

-2.0i.E-03 

3.63E»0i» 

3.78E-05 

85           1 

-8.600E-01. 

8.<.13E-03 

-8.288E-02 

-l.«»<tE-05 

3.39E-0<» 

2.03E-C 

6<>           1 

0. 

0. 

0. 

0. 

0. 

0. 

83           i 

-8.338E-0*. 

8.120E-03 

-7.813E-02 

1.89E-03 

3.91.E-0". 

2.^3E-0<4 

82           1 

-1.088E-03 

7.09UE-03 

-6.658E-02 

3.95E-03 

2.91.E-03 

-2.56E-02 

81           1 

0. 

0. 

0. 

0. 

0. 

0. 

80           i 

-1.M8E-03 

5.816E-03 

-5.260E-02 

3.0<«E-03 

2.99E-0«» 

2.72E-0<4 

79           1 

•1.746E-03 

«..6i.6E-03 

-3.97i.E-02 

6.08E-03 

1.0<.E-02 

-1.0I4E-01 

78           1 

-2.1<.7E-03 

3.009E-03 

-3.600E-02 

-6.77E-03 

-1.88^-02 

1.95E-01 

77           1 

0. 

0. 

0. 

0. 

0. 

0. 

76           j 

-1.W9E-03 

<».37<.E-03 

-<i.85«E-02 

-3,«.<.E-03 

7.63E-0'* 

-8.89E-05 

75           1 

-8.<tl6E-0*t 

6.033E-03 

-6.323E-02 

3.59E-0*. 

1.37E-02 

-1.28E-01 

Fig. 
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7«.           1 

.        0. 

0. 

0. 

0. 

0. 

0. 

73          J 

• 

1      -2.487E-04 

7.351E-03 

-7.460E-02 

-2.13E-03 

1.26E-03 

6.50E-05 

72          1 

-2.758E-05 

7.885E-03 

-7.817E-02 

-4.86E-04 

6.88E-04 

7.62E-03 

71           1 

0. 

0. 

0. 

0. 

0. 

0. 

70          i 

1.217E-05 

7.623E-03 

-7.386E-02 

1.55E-03 

1.29E-03 

3.98E»0<. 

69          3 

I      -3.433E-04 

6.635E-03 

-6.278E-02 

2.68E-03 

7.73E-04 

3.70E-03 

68          1 

0. 

0. 

0. 

0. 

0. 

0. 

67          1 

L      -6.986E-0<» 

5.«.22E-03 

-4.960E-02 

2.67E-03 

8.83C-04 

4.22E-04 

66          i 

L      -1.078E-03 

i».337E-03 

-3.777E-02 

-2.51E-02 

-6.49E-02 

8.71E-01 

65          i 

l      -1.685E-03 

2.747E-03 

-3.267E-02 

-2.42E*-03 

1.50E-03 

-3.63E-04 

6<»          1 

L         0. 

0. 

0. 

0. 

0. 

0. 

63          J 

1       -7.i»78E-0<» 

4.018E-03 

-4.310E-02 

-3.33E-03 

1.35E-03 

-9.22E-05 

62          3 

i      -2.105E-0'. 

5.402E-G3 

-5.607E-02 

-8.20E-03 

-1.37E-02 

1.57E-01 

61          1 

0. 

0. 

0. 

0. 

0. 

0. 

60           i 

4.671E-0<» 

6.500E-03 

-6.588E-02 

-2.07E-03 

2.12E-03 

8.43E-05 

59          J 

L         5.521E-04 

6.912E-03 

-6.873E-02 

-6.66E-04 

1.76E-03 

6.45E-03 

58           1 

0. 

0. 

0. 

0. 

0. 

0. 

57           i 

6.596E-04 

6.660E-03 

-6.U98E-02 

1.10E-03 

2.13E-03 

5.17E-04 

56           1 

1.934E-04 

5.766E-03 

-5.515E-02 

1.76E-03 

3.55E-04 

1.55E»02 

55           1 

0. 

0. 

0. 

0. 

0. 

0. 

5*.           1 

-1.312E-04 

4.699E-03 

-4.366E-02 

2.14E-03 

1.42E-03 

5.44E-04 

53           1 

-5."»80E-0it 

3.763E-03 

-3.355E-02 

1.55E-03 

9.68E-06 

1.09E-02 

52          1 

6.126E-03 

1.455E-02 

-2.26<.E-G2 

-3.25E-03 

1.52E-03 

-9.41E-G5 

51          1 

0. 

0. 

0. 

0. 

0. 

0. 

50           J 

-2.980E-0<» 

3.299E-03 

-3.474E-02 

-3.03E-03 

1.80F-03 

-1.32E-04 

<(9          : 

L         1.7U9E-04 

4.403E-03 

-4.539E-02 

5.33E-03 

2.86E-02 

-2.65E-01 

<»e 

I        0. 

0. 

0. 

0. 

0. 

0. 

47 

L         6.545E-04 

5.216E-03 

-5.280E-02 

-1.86E-03 

2.83E-03 

1.03E-01. 

<«6 

L         8.324E-04 

5.5C7E-03 

-5,«.95E-02 

-9.35E-04 

2.«.<«E-03 

7.62E-03 

45 

L         0. 

a. 

0. 

0. 

0. 

0. 

44 

L         9.806E-04 

5.27<.E-03 

-5.191E-02 

5.79E-0<« 

2.81E-03 

5.97E-04 

Fig. 
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*3  1  *».7QiE-0i»  <..5<.9E-03 

*)2  ,1  0.  0. 

I»l  1  2.1«6E-0i»  3.698E-03 

*0  1  -1.833E-01.  2.975E-03 

39  1  -2,6«.<»E-0<.  1.261E-03 

38  1  0.  0. 

37  1  -fc.719E-Q5  2.3U0E-C3 

36  1  3.130E-01*  3.120E-03 

35  1  0.  0. 

3«i  1  8.819E-C*  3.638E-03 

33  1  7.971E-C*  3.797E-03 

32  1  0.  0. 

31  1  9.<.36E-0<»  3.61I.E-03 

30  1  5.036E-0<4  3.104E-03 

29  1  0.  0. 

ZS"  1  3.355E-0<»  2.520E-D3 

27  1  2.618E-06  2.C7E-03 

26  1  -3.314E-0'*  5.590E-0U 

25  1  0.  0. 

ZU  1  7.380E-05  1.19<tE*-03 

23  1  1.972E-0<4  1.639E-03 

22  1  0.  0. 

21  1  5.955E-04  1.866E-03 

20  1  <t.69<«E-0<.  1.913E-03 

19  1  0.  0. 

18  1  6.191E-C  1.806E-03 

17  1  2.860E-0<»  1.535E-03 

16  1  0.  0. 

15  1  2.<«87E-0i.  1.253E-03 

l«i  1  -2.699E-05  1.030E-03 

13  1  -5.3<.<.E-0<«  -2.02i»E-0i. 

Fig.  34  Continued. 


-<».<»l'»E-02 

1.13E-03 

1.23E-03 

1.28E-02 

0. 

0. 

0. 

0. 

-3.506E-02 

l.<»7E-03 

1.87E-03 

6.22E-0*. 

-2.732E-02 

-1.56E-03 

-7.29E-03 

8.90E-02 

-1.505E-02 

-2.79E-03 

1.52E-03 

2.Q2E-05 

0. 

0. 

0. 

0. 

-2.<»68E-02 

-2.«i2E-03 

2.15E-03 

-2.<»6E-0i» 

-3.197E-02 

-7.02E-03 

-1.22E-02 

1.5J.E-01 

0. 

0. 

0. 

0. 

-3.675E-02 

-1.55E-03 

3.32E-03 

1.15E-04 

-3.805E-02 

-8.37E-C* 

3.72E-0  3 

-3.38E-C* 

0. 

0. 

0. 

0. 

-3.60  2E-02 

2.HE-05 

3.27E-03 

6.33E-01* 

-3.068E-02 

3.83E-04 

1.69E-03 

1.22E-02 

0. 

0. 

0. 

0. 

-2.451E-02 

7.27E-0<t 

2.20E-03 

e-siE-o^ 

-1.9<»6E-02 

-6.«.<»E-05 

-2.93E-0<« 

2.08E-02 

-7.324E-03 

1.75E-03 

1.37E-02 

-1.22E-01 

0. 

0. 

0. 

0. 

-1.287E-02 

-1.52E-03 

2.lt2E-03 

-2.88E-0<» 

-1.660E-02 

5.«*9E-oi» 

9.97E-03 

-6.82E-02 

0. 

0. 

0. 

0. 

-1.879E-02 

-1.17E-03 

3.59E-03 

1.50E-0<t 

-i.93«.E-02 

-1.42E-03 

2.<.2E-03 

1.53E-02 

0. 

0. 

0. 

0. 

-1.837E-02 

-5.26E-6<» 

3.52E-03 

6.05E-OI* 

-1.563E-02 

-1.26E-03 

-7.56E-0I. 

3.93E-02 

0. 

0. 

0. 

0. 

-1.262E-02 

-2.92E-05 

2.40E-03 

6.13E-0<» 

-9.999E-03 

3.63E-03 

1.31E-02 

-1.13E-01 

2.<<33E-03 

-8.55E-0<« 

i».03E-03 

-1.96E-02 
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12         10.                       0,                       0*                       0.  0.  0. 

11          i        o.                        0.                        0.                      -6.72E-0«»  Z.57E-03  -6.73E-05 

10          1      -1.854E-0*        %.995E-05     -2.515E-0*.        9.<»5E-03  3.61E-02  *3.33E-01 

0 •  0.  0. 

-9.19E-0*  3.6i»E-03  3.19E-0<» 

-0i»      -7.11E-0<«  <».66E-03  -8.23E-C3 

0.  0.  0. 

-8.85E-0*.  3.56E-03  3.77E-0<» 

*           1      -1.205£-0<t      -1.932E-05      -1.398E-0<»      -7.70E-04  3.02E-03  1..77E-0'* 

3          10.                        0.                         0.                         0.  0.  0. 

2           10.                          0.                          0.                       -6.1<»E-0«»  2.<*9E-03  '♦.0*.£-0<» 

1           1      -3.201E-0U      -2.105E-Cfc        9.102E-C*      -6.05E-0'.  1.18E-03  1.06E-02 
...BEAM    FORCES    AND    MOMENTS 


9 

1 

0. 

0. 

0. 

8 

1 

0. 

0. 

0. 

7 

1 

-3.588E-Q5 

<».169E-C5 

-2. 

6 

1 

0. 

0. 

0. 

S 

1 

0. 

0. 

0. 

BEAf    LOAD              AXIAL                   SHEAR                   SHEAR              TORSION  8ENDIN6  BENDING 

NO.       NO.                       Rl                            R2                           R3                            Ml  H2  M3 

1  1    -<..203E+01  6.<»99E  +  01  1..683E  +  00  -1.30<*E*01  -2.907E+01  7.586E*01 

«t.203E  +  01  -6.1.99E+01  -<t.683E+00  1.30«tE+0i  5.6<»<»E+00  2.i*93E  +  02 

2  1   -8.370E+01  1.1<»2E*02         5.598E+00  -8.063E+00  -3.371E+01  2.W3E  +  02 

8.370E+01  -1.1U2E+02  -5.598E+00  8.063E+G0  5.703E+D0  3.239E+02 

3  1    -8.U28E+01  1.196E+02  -U.356E+00  5.738E*00  2.550E+01  2.i»89E+02 

8.1»28E  +  01  -1.196E+02  <».356E  +  03  -5.738E+Q0  -3.705E+00  3.<»92E  +  C2 

<•         1    -2.733E+01  6.J»11E*01  -8.097E+00  1.88i»E+01  3.796E+01  1.5<»6E  +  01 

2.733E+01  -6.«.11E+01  8.097E  +  00  -1.88<tE+01  2.5^3E+00  3.053E  +  02 

5  1  -1.30<»E*02  6.559E+01  1.<«53E  +  Q0  -1.670E+01  -<».  919E+0  0  -3.517E  +  01 

1.30<4E+02  -6.559E  +  .01  -1.U53E  +  00  1.670E+01  -2.351E*0Q  3.633E+02 

6  1    -2.382E+02  1.170E4-02         1.282E+00  -1.210E+01  -*».223E*0Q  <».737E  +  01 

2.382E+02  -1.170E+02  -1.282E+00  1.210E+G1  -2.191E+00  5.381E+02 

7  1   -2."»36E+02  1.183E+Q2  -1.203E+00  8.258E+00  5.158E+00  2.813E+01 

2.i»36E  +  02  -1.183E*02         1.203E+00  -8.258E+00  8.602E-01  5.63<«E*02 

6         1   -1.122E+02  6.255E+01  -1.855E+00  1.973E4-01  -1.69<»E*00  -1.088E+02 

1.122E+02  -6.255E+01         1.855E+00  -1.973E+01  1.097E+01  i».217E  +  02 

9         1    -2.148E+02  6.382E*01  8. 208E-01  -1.647E+01  2.721E+00  -1.577E+32 

2.148E  +  02  -6.382E  +  01  -8.208E-01  1.6i*7E>01  -6.827E+00  '•.770E+02 

10  1    -*i.022E*02  1.207E+02  5.738E-01  -1.228E  +  01  3.i»37E«-00  -l.<»38E  +  02 

(..022E+02  -1.207E+02  -5.738E-01  1.228E+01  -6.307E+00  7.it77E  +  02 

11  1    -<..07"4E*02  1.192E«-02  -2.558E-01  6.922E+00  8.723E-01  -1.760E  +  02 

<».07<.E*02  -1.192E4-02         2.558E-01  -6.922E+00  <..071E-01  7.721E+02 

12  1   -1.8Q7E+02  3.081E+01  -1.3I.6E+00  1.3U2E+01  -8.771E+00  -2.622E+02 

1.807E  +  02  -3.081E+01         1.3<«6E  +  00  -1.3<42E*01  1.550E+01  U.163E  +  02 

13  1    -2.937E+02  6.1G5E+01         7.773E-01  -1.<.60E*01  7.125E+00  -2.8<»6E  +  02 

2.937E+02  -6.105E*01  -7.773E-01  1.<.60E*01  -1.101E+01  5.900E+02 

l«t         1    -5.682E  +  02         1.2<t5E*02         5.270E-01  -1.13<4E  +  01  7.i.82E+00  -3.<.82E  +  02 

5.682E+02  -1.2U5E+02  -5.27QE-01  1.13<.E«-01  -l.Oiat+Ol  9.712E+02 

4       c    7n7F*n?         1    210E*02  -8.920E-02         I..576E  +  00  1.292E+00  -3.8<»9E*02 

Fig.      34   Continued. 
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16  1  -2.517E+02  8.299E»01  1.286E»00  6.738E*00  -7.661E»00  -2.360E+02 

2.517E*02  -8.299E»01  -1.286E*00  -6.738E*Q0  1.225E*00  6.512E*32 

17  1  -3.52UE+02  3.205E+01  5.752E-01  »1.170E*01  1.116F»01  -i».i.83E*02 

3.52I.E+02  -3.205E+01  -5.752E-01  1.170E+01  -1.<»0<.E*01  6.O86E+02 

18  1  -6.937E»02  5.870E*01  1..790E-01  -9.91.7E  +  00  1.087F+C1  -6.73OE+02 

6.937E+02  -5.870E*01  -1..790E-01  9.9<»7E*00  -1.327E*01  9.666E+02 

19  1  -6.867E»02  *♦ . 750E*01  -1.576E-01  l.i»05t*00  1.97OE+00  -7.199E+02 

6.867E»02  -<«.750E*01  1.576E-01  -H.05E  +  00  -1.182E*00  9.575E+02 

20  1  -3.306E+02  3.648E+01  3.380E-01  2.<.i»9E«-00  -H.6UE+00  --..802E  +  02 

3.3Q6E»Q2  -3.6I.8E  +  01  -3.380E-01  -2.i#it9E*00  -2.270E-01  6.627E  +  02 

21  1   -3.791E+02  1.063E+01  3.038E-01  -7.876E*00  1.390E*01  -5.I.26E  +  02 

3.791E*Q2  -1.063E+01  -3.038E-01  7.876E+G0  -1.5<»2E*01  5.958E+02 

22  1    -7.I.76E  +  02  1.536E*01  6.863E-01  -7.h71E+00  1.338E+01  -8.379E+02 

7.1.76E+02  -1.536E+01  -6.863E-01  7.I.71E+00  -1.681E+01  9.K.7E  +  02 

23  1   -7.209E+02  -1.I.76E  +  00  <t.022E-01  -1.901E+00  1.718E  +  00  -8.82<«E+02 

7.209E*02  1.I.76E+00  -I..022E-01  1.901E+00  -3.730E+00  8.75QE+02 

2<i         1   -3.721E+02  7.958E*00  -1.72«»E*00  6.636E-01  1..000E-01  -5.621.E  +  02 

3.721E+02  -7.958E*00  1.72AE+00  -6.636E-01  8.22*»E*0D  6.022E+02 

25  1   -3.861.E+02  8.814E+00  3.9U3E-01  -U.722E+00  1.1.90E+01  -5.726E+02 

3.86<»E*02  -8.81I.E+30  -3.91.3E-01  1..722E+00  -1.582E+01  5.930E  +  02 

26  1   -7.637E+02  1.806E+01  5.601.E-01  -<».7«.8E  +  00  1.658E+01  -8.721E+02 

7.637E  +  02  -1.806E+01  -5.601.E-Q1  1..71.8E  +  00  -1.788E+01  9.1*»0E  +  02 

27  1   -7.21.5E  +  02  1.161E+02  -U.02i.E-01  -1..660E  +  00  i».505E*00  -8.522E+02 

7.2«»5E*02  -1.161E*02  1..021.E-01  <*.663E  +  00  -3.533E+00  1.133E+03 

28  1    -3.807E  +  02  8.151E-01  1.1.30E-01  -2.812E+00  -8.1.85E+00  -5.801E  +  02 

3.807E+32  -8.151E-01  -1.1.30E-01  2.812E+00  8.153E+00  5.820E+02 

29  1   -3.886E  +  02  5.651E*00  3.055E-01  -2.1.81.E  +  00  1.51.3E+01  -5.81.0E  +  02 

3.886E+02  -5.651E+C0  -3.055E-01  2.1.8I.E  +  00  -1.625E+01  5.992E+02 

30  T-7.718E  +  02  1.892E*G1  5.068E-01  -2.51.6E+00  1.738E+01  -8.390E+32 

7.718E+02  -1.892E+01  -5.G68E-01  2.5I.6E  +  00  -1.87i»E*01  9.397E+Q2 

31  1  -7.388E+02  -7.665E+Q1  2.165E-01  -1..838E  +  00  1.480E+00  -1.102E+03 

7.388E+02  7.665E+01  -2.165E-01  U.838E+00  -2.071E*00  8.928E+02 

32  1   -3.797E+02  -5.307E-01  6.253E-01  -5.806E+C0  -8.186E+00  -5.81.6E  +  Q2 

3.797E+02  5.307E-01  -6.253E-01  5.806E+00  6.509E+00  5.832E+02 

33  1   -3.700E  +  02  -3.259E+01  -1.1.55E-01  8.I.29E-G1  1.597E+01  -6.1.51E  +  02 

3.700E  +  02  3.259E*01  1.U55E-01  -8.<»29E-01  -1.521.E+01  1..821E  +  02 

31.    1  -7.271E*02  -7.575E+01  -3.273E-01  -8.839E-02  1.798E+01  -1.0«»9E+03 

7.271E+02  7.575E*01  3.273E-01  8.839E-02  -1.635E+01  6.705E+02 

35  1  -6.852E+02  -7.599E+01  «..652E-01  -7.268E+00  2.895E+00  -1.030E+03 

6.852E+02  7.599E*01  -1..652E-01  7.268E+00  -5.223E+00  6.<.99E*02 

36  1  -3.568F+02  -3.629E*01  1.182E  +  00  -9.91.9E  +  00  -6.89<.E*00  -6.391E  +  02 

3.568E+02  3.629E*01  -1.182E+00  9.949E+00  9.801E-01  1..575E+02 

37  1  -3.197E+02  -«..5i.9E*01  -3.292E-01  5.098E  +  C0  1.U67E  +  01  -6.016E  +  02 

3.197E*02  i«.5U9E*01  3.292E-01  -5.098E*C0  -1.302E4-01  3.71.0E  +  02 


38 


1  -6.06I.E  +  02   -9.861E  +  01   -8.059E-01    3.38«.E*00    l.«.78E*01   -9.552E  +  02 
6.061.E  +  02    9.861E  +  01    8.059E-C1   -3.38i.E*00   -1.075E*01    <..618E*02 


39    1  -5.689E  +  02  -9.883E  +  01  1.1.56E-01  -8. 7231*00  3.526E*00  -9.22".E*02 

5.689E*02    9.883E  +  01  -1.U56E-01    8.723E  +  00  -1..255E+00  1..279E  +  02 

1.0  1  -3.032E*02  -<..801F*01  1.927E*00  -1.292E  +  01  -1.973E  +  00  -5.818E*02 

3.032E  +  02    l».801£*01  -1.927E»00    1.292E+01  -7.666E*00  3.1.16E  +  02 

1.1  1  -2.581.E  +  02  -i..932E*01  -3.5I.6E-01    8.9i.lE*00  1.2I.2E  +  01  -5.200E*02 

2.58<.E«02  l..9"!2E»01  3.5I.6E-01  -8.91.1E  +  00  -1.06fcE*01  2.733E  +  02 

<»2         1    -I..706E  +  02  -9.628F  +  01  -1.591E-01         5.59<5£400  9.317F*00  -7.8l.2E»02 

l..70f.E*02         9.628E*01  1.598E-01  -5.595E»00  -8.517E  +  00  3.026E  +  02 


Fig.   34  Continued. 
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43    1  -4.350E*02   -<».<»2<4E*01  2.2<.5E-01   -9.876E+00  2.637F+00   -7.f»29F*02 

4.350E+02    9.<»2<»£»0i  -2.245E-01  9.876E+0Q  -3.760E+00    2.71<.E*02 

*<»    1  -2.38<.E*02  -5.098E*01  -1.872E+0Q  -1.30<.E*01  6.569F*00  -<».925E*02 

2.384E+02  5.098E»01  1.872E+Q0  1.30<«E«-01  2.796E  +  00  2.375E+02 

«|5    1  -1.936E+02  -5.230E+01  -2.066E-01  1.228E*01  1.012F+01  -<».289E*02 

1.936E+02  5.230E*Q1  2.066E-01  -1.228E+01  -9.088E»00  1.672E*Q2 

li6    1  -3.357F+02  -9.<.77E*01  -1.96UE-Q1  7.172E»C0  7.210F*0Q  -6.23».E»Q2 

3.357E*02  9.<»77E  +  ai  1.96i»E-01  -7.172E+CQ  -6.228E*00  1.h9<»E*02 

k7        1  -3.C3E  +  02  -9.10<*E*01  2.125E-01  -1.054E+01  2.177E*D0  -5.791E+02 

3.Q43E+02  9.10<*E+C1  -2.125E-01  1.05«»E*01  -3.21.0E  +  00  1.237E+02 

48  1  -1.733E+Q2  -5.297E*0i  l.i.OiE  +  00  -1.61«tE«-0i  -9.131E*00  -3.888E+02 

1.733E+02  5.297E+01  -1.401E+00  1.61<.E«-01  2.122E+00  1.238E  +  02 

49  1  -1.262E*02  -5.*.62E*01  -6.18i.E-01  1.501E+01  8.681F+00  -3.301E+02 

1.262E+02  5.462E+01  6.181.E-01  -1.501E+01  -5.587E*00  5.686E  +  01 

50  1  -2.051E+02  -9.009E+31  -9.47CE-01  8.261E  +  C0  4.906E+00  -'♦.643E+02 

2.051E+02  9.009E+01  9.470E-01  -8.261E+00  -1.653E-01  1.329E+01 

51  1    -1.766E  +  0T  -8.896E«-01  9.219E-01  -1.039E  +  01  1.6<.i.E*00  -l».2i.UE  +  02 

1.766E+02  8.896E*01  -9.219E-01  1.039E+01  -6.256E+00  -2.061.E  +  01 

52  1   -1.061E+02  -5.4H.E+01  2.787E+00  -1.759E+01  -2.803E+00  -2.799E+02 

1.061E+02  5.<«l<tE+01  -2.787E+00  1.759E+01  -1.11<.E*01  9.Q73E+00 

53  1    -5.121E+01  -5.619E+01  -4.733E+00  1.48UE+01  5.618E+00  -2.378E+02 

5.121E+01  5.619E*31  4.733E+Q0  -1.484E+01  2.169E+01  -8.65JE  +  01 

5*         1    -6.437E+01  -9.<*86E+01  -3.737E+O0  6.279E+O0  -3.589E-01  -34309E+02 

6.437E+Q1  9.%86E»01  3.737E*OQ  -6.279E+00  2.013E+01  -1.710E+02 

55  1    -5.436E+01  -8.7WE+31  3.573E+0Q  -7.565E+00  <..673E+0Q  -2.688E+02 

5.436E+01  8.7U7E+01  -3.573E+03  7.565E+00  -2.188E+01  -1.525E+02 

56  1    -3.763E  +  01  -5.<tl<»E  +  01  3.376E+00  -1.385E+D1  1.010E+01  -1.686E  +  02 

3.763E+01  5.<*1(*E  +  01  -3.376E+00  1.385E+01  -2.it75E+01  -6.629E+01 

57  1   -2.359E+00  2.595E+00  -6.739E+03  1.997E+01  2.851E+01  1.033E+01 

2.359E+00  -2.595E+00  6.739E+00  -1.997E+01  3.148E+01  1,277E+01 

58  1    -7.964E+00  1.685E-01  -8.115E-01  1.5M3E+00  2.821E+00  -3.37<»E  +  00 

7.964E+00  -1.685E-01  8.115E-01  -1.540E+O0  4.399E+00  4.873E+00 

59  1   -1.298E  +  01  -<..887E4-0G  7.i«00E  +  00  -2.056E+01  -3.6<»2E«-0  1  -2.850E+01 

1.298E+01  4.887E+Q0  -7.400E+00  2.056E+G1  -2.953E*01  -1.506E  +  01 

60  1    -5.268E+00  1..689E+D0  lt.767E  +  00  -1.271E+01  -1.928E+01  1.379E+01 

5.268E  +  00  -U.689E+00  -1..767E  +  00  1.271E«-C1  -2.267E+01  2.747E+01 

61  1    -5.77l(E  +  00  -9.903E-01  -2.273E-01  7.6^6E-01  2.266E«-00  -7.71.0E  +  00 

5.77*.E+00  9.903E-01  2.273E-01  -7.646E-C1  -2.670E-01  -9.689E-01 

62  1    -5.191E+00  -2.667E+00  -<t.851E+00  1.368E+01  2.258E+01  -1.135E+01 

5.191E  +  00  2.667E  +  Q0  i».851E  +  00  -1.368E+01  2.015E  +  01  -1.21<»E  +  01 


SHELL    ELEMENT    STRESSES 


Ehf,!^I  L0A°  MEMBRANE    STRESS    COMPONENTS  BENDING    MOMENT    COMPONENTS 

NUMBER  CASE  SXX  SYY  SXY  MXX  MYY  MXY 


1  i      -.7672E+01      -.2978E+01  -.6311E+01      -.3366E+00      -.7571E+60      -.6875E+00 

2  1      -.8C92E*01         .1053E*01  .2930E+01      -.1259E*00      -.5517E+00      -.1180E+01 

3  1      -.1622E+01      -.18U6E  +  01  -.7686E  +  01         .l<»91E+00      -.8876E  +  00      -.13i*bE.+  01 

Fig.      34  Continued. 
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<t 

1      -.18<.1E*01 

-,9073E*00 

.<»9«»i«E«-01 

-.3263E+00 

-.8568E*00 

-,l!t6'«E*00 

5 

1      -.2751E+Q1 

-.ll»13E-02 

-.3626E*01 

.2565E+00 

•1061E-01 

-.7231E-01 

6 

1      -.<tl56E*01 

■..1235E  +  01 

•  899«.E*01 

-.5661E+00 

-,3739E*00 

,U58E»01 

7 

1      -.1581E»02 

il077E*01 

-.6l«79E*01 

-.19<»8E-01 

,6960E*00 

.1238E+J1 

6 

1      -.1537E*02 

-.2195E+01 

.6891E*01 

-.8192E+00 

-.1292E+01 

.1208E+01 

9 

1      -.1991E+02 

.1010E+01 

-.5557E+01 

-.5352E*00 

-.28<»<»E*00 

-.1098E+01 

10 

1      -.19<«3E+02 

,3<t<«<«E  +  00 

.2081E+C1 

t.5218E+00 

-.«.586E+00 

-.i«»caE*oi 

11 

1      -.1731E*02 

-.5016E+00 

• -.1003E+G2 

-.6357E+00 

-.1770E+01 

-.1282E+01 

12 

1      -.17<»2E+02 

-.9891E+00 

.8069E+C1 

-.9127E+00 

-.1925E+01 
e 

-,i.265E  +  uC 

13 

1      -.1921E+02 

-.1583E+01 

-.6330E+01 

-.i»350E+00 

-.9759E+00 

.39<»8E-G1 

l«i 

1      -.2290E+02 

-.1313E+01 

•1066E+02 

-.9847E+00 

-.12»»8E*01 

.1083E+01 

15 

1      -.302<»E+G2 

.7031E+00 

-.1454E+G1 

-.35C2E+00 

•2292E+00 

•1233E+01 

16 

1      -.2266E+02 

.5U1.6E  +  01 

-.6701E+C0 

-.8903E«-00 

-.80Q8E+G0 

.1733E+01 

17 

1      -.3156E+02 

.288i»E+00 

-.4538E+G1 

-.6071E+GO 

.<»361E-01 

-.1251E+01 

IS 

1      -.3207E+02 

.if393E  +  00 

•1384E+01 

-.8255E+00 

-.i»'f2  7Et0O 

-.1350E+Q1 

19 

1      -.3263E+02 

.1132E+00 

-.1089E+02 

-.1080E+01 

-.2377E+01 

-.1283E+01 

20 

1      -.3i.20E*02 

-.2673E+00 

.7705E+01 

->.1612E*01 

-.3059E+01 

-.5262E+00 

21 

1      -.3652E+02 

-.69HE  +  00 

-.72it9E+Cl 

-.1089E+G1 

-.220<.E+01 

.<»193E-02 

22 

1      -.3878E+02 

-.9i»36E  +  00 

.1092E*02 

-.1519E*01 

-.2109E+G1 

.1036E+01 

23 

1      -.«i020£+02 

-.1983E*01 

-.3466E+00 

».727'»E*00 

-.1568E+00 

.1185E+G1 

ZU 

1      -.<«702E*02 

-.1975E+02 

.'♦269E+01 

-.3<t38E*00 

-.19<»6E*00 

.7153E+00 

25 

1      -.'.231.E+02 

•4371E+00 

-.3795E+01 

-.7660E+00 

•1555E+C0 

-.1169E+01 

26 

1      -.<ti»78E+02 

•5652E+00 

.7062E+00 

-.1133E+01 

-.3628E+00 

-.1230E+01 

27 

1      -.<»855E+02 

•1056E+01 

-.1016E+02 

-.1593E+C1 

-.2907E+01 

-.1222E+01 

28 

1      -.5135E+02 

.1115E«-01 

.6019E+01 

-.22<«1E+01 

-.398<*E+01 

-.50C1E+Q0 

29 

1      -.5378E+02 

.8186E+00 

-.6905E+01 

-.1808E+01 

-.3<»01E*01 

-.1721E+00 

30 

1      -.5M3E+02 

-.5983E-01 

.8103E+01 

-.2016E*01 

-.29i»8E*01 

.8658E+C0 

31 

1      -.5139E+02 

-.2827E  +  01  . 

-.2889E*01 

-,9287E*00 

-.5585E-01 

.6579E+00 

32 

1      -."4831E  +  02 

-.13<.7E*Q2 

.102i»E+02 

-.8520E-01 

.85<.5E*00 

-.1063E+01 

33 

1      -.5071E+02 

.5<«38E«00 

-.2571E*G1 

-.9766E*00 

•2115E*t0 

-.9079E+00 

3k 

1      -.51.70E  +  02 

,8393E*00 

-.2<«06E*00 

-.1327E*01 

-.21<»3E*00 

-.1003E*01 

Fig. 
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35 

L      -.6C61E+02 

.2256E+01 

-.7011E*01 

-.2121E»01 

-,33<.OE*01 

-.87I.8E+G0 

36                      1 

L      -.6M)3E*02 

.28<.5E*01 

.290<»E  +  01 

-.2562E+01 

-.i.589E*01 

-.5999t*00 

37                      i 

L     -.6613E*02 

.3100E+01 

-.'.738E+01 

-.2<«19E»01 

-.M»32E*01 

-.119<«E*00 

ss                 : 

L      -.65<»0E*02 

.2638E*01 

•2751E+C1 

-.2268E*01 

-.3552E*ul 

.369CE+CC 

39 

L      -.6257E+02 

.1195E+01 

-.<»9<.0E«-G1 

-.122<»E*01 

.1<»«»0E*00 

.  I.0  22E+00 

<.0                        1 

L      -.5165E.*02 

.5439E+01 

.6608E+01 

-.1877E+01 

•1551E+01 

.7325E+GG 

kl               i 

L      -.5520E+02 

.5831.E+00 

-.1201E+G1 

-.1055E+C1 

.255<«E*00 

-.633<.E  +  00 

MZ                      i 

L      -.5991E*02 

.1235E+01 

-.5309E+00 

-.135<»E*01 

-.1166E*QQ 

-.6<»0Gt«-GO 

*3                      i 

L      -.6557E+02 

.3058E+01 

-.3055E+G1 

-.2323E*G1 

-.3*»55E«-01 

-.5126E+00 

%<»                      i 

L      -.6950E+02 

.<»359E+01 

.1235E+G1 

-.2652E+01 

-.'.880E+01 

-.71<»1E*Q0 

<»5                      '. 

L      -.7078E+02 

.7931E+01 

-.2169E+01 

-.2867E+01 

-,5Hf8E*-01 

-.187tE-01 

kf>                      i 

I      -.6936E+02 

,75<»9E+01 

-.2<»<t«»E+01 

».22i»5E*01 

-.3932E*01 

-.3295E+G0 

it?                      1 

L      -.6395E+02 

•  268<*E  +  01 

-.3169E*01 

-.15i»5E*01 

•1279E+00 

.26<.2E  +  dO 

«i8                                          i 

L      -.5606E+02 

.1037E+01 

.1991E+C1 

-.7*»21Et-00 

.112«»E  +  01 

.3797E*G0 

49                      i 

L      -.5662E+02 

.6675E+00 

-.2<»«»3E+G0 

-.1061E+01 

•  281.2E  +  00 

-.<»5G3E+GQ 

50                      1 

L      -.6158E+02 

.1385E+01 

-.2799E+0G 

-.1M2E  +  01 

-.967<»E-01 

-.3668E+00 

51                      i 

L      -.670I.E+02 

•2986E+01 

-.6518E+00 

-.2<.<.7E*01 

-.3373E+G1 

-.3982E+00 

52                      1 

L      -.6965E+02 

•2825E+01 

.329<»E*01 

-.2807E+01 

-.5000E+01 

-.1370E*00 

53                      1 

L      -.7810E+02 

.i.32i»E*01 

.2188E+G2 

».2<.80E*01 

-.5176E+C1 

-.6027E+00 

5<»                      J 

L      -.7250E+02 

-.1909E+02 

/ 
-.2151E*02 

-.2556E*01 

-.<»<»33E*Q1 

.5813E-01 

55                        3 

L      -.5992E+02 

-.2123E+01 

-.1537E+G1 

-.10i.5E*01 

.215SE+G0 

-.5922E+00 

56                        J 

L      -.5675E+02 

.7504E+00 

•8017E+0G 

-.721.2E+00 

.6880E+G0 

-.1151E+G0 

57                      3 

L      -.5708E+02 

.6i»<.9E  +  00 

•  57<»6E+00 

-.1066E+01 

.2852E+00 

-.258«.E+G0 

58                      i 

l      -.6178E4-02 

•  11«»9E*01 

-.1.07GE4-CO 

-.13it9E*01 

-.(.653E-01 

-.1518E+iJ 

59                      3 

L      -.6806E+02 

•2330E+01 

•  1M5E+01 

-.2280E+Q1 

-.3293E*01 

-.2517E+00 

60                      ! 

L      -.6866E+02 

-.7I.03E+00 

-.33<.iE  +  01 

».2'.33E*01 

-.'.753E+01 

-.<.665l  +  00 

61                        1 

L      -.7801E+02 

-.1918E+02 

-.2001E+02 

-.3191E+01 

-.561l»E*Gl 

-.1377E+00 

62                       1 

L      -.7579E+02 

.1555E»01 

.1616E*C2 

-.2081E+01 

-..M)2<»E*01 

-.«.5fl0E*G0 

63                      ] 

L      -.6100E+02 

.W.5E  +  00 

.3070E*G1 

-.1580E+01 

-.1153E*00 

-.'»258E*00 

61.                         1 

I      -.5705E+02 

•9059E*00 

-.1S07E*00 

-.8273E+00 

.4781E+00 

-.3956E+0G 

65                        1 

L      -.5<«99E  +  02 

.5087E*00 

.l«£.3t+01 

-.1105E*01 

.2'.59E*00 

.933<.E-01 

Fig.      34 
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66                      ! 

L     -.589«.E»02 

,8657E*00 

-.1053E*C1 

-.1279E*01 

.6063E-01 

.U671E-CI1 

67                      ! 

L      -,6<.i»lE*02 

.2025E»01 
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OVERALL  LOG 
NOOAL  FOINT 
FORM  ELEMENT 
INFUT  NODAL 
FORM  TOTAL  STIFFNESS 
EQUATION  SOLVING.... 
ELEMENT    STRESSES. ... 


. 2003E+02 
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.1811E+02 
,16<»8E»02 
,1537E*02 
.1518E+02 
■  l<»53E+02 
.7968E+01 
.7617E+Q1 
.71.72E+01 
.5979E+01 
.1.930E+01 
.i»378E+01 
.3822E+01 
,<»107E*01 


,3197E*00 
.663(»E«00 
.8766E-01 
.12i.lE*01 
.11<*7E+J1 
.i»893E*D0 
.6793E+00 
.5808E+J0 
.1963E+01 
.3025E+00 
,<»68<<E+01 
.2266E+01 


•  <««56e*01 
.911.6E+C0 
.1076E*C2 
-.6055E+01 
,«.523E*Ci 


.<«798E»00 
,33<.1E*00 
,7873E»00 
,<*56<.£*00 
>9<*69E«00 


-.1068E+C2       -.<»581E*00 


-.5252E+00 

-.<t888E+Cl 

.i«928E+01 

•7552E+0Q 

.1077E+C2 

<-.5021E+01 


.1573E+01         .4611.E+01      - 


-.32<.5E*01 

•  2<»31E+01 

-.2787E+01 


.9762E+01 
.6536E-02 
.1.998E  +  01 


,616<»E+00 
,3i»2<»E+00 
3672E+00 
.8757E-01 
■3760E+00 
■6708E-01 
■2992E+00 
■5251E-D1 
,2061E*00 
,2767E*00 


-.126<»E»00 
.3U27E+00 
-.112i.E*01 
-.1058E+01 
-.1797E+01 
-.1<»92E*Q1 
-.67<«1E«00 
-.1971E+00 


.991JE*C0 

.1085£t01 

.96  96E*00 

.1682E+00 

-. 3096c*00 

-.1186E+01 

-.126*E+01 

-.119i»E<-01 


-.7302E+00  .8<»55l+0C 


•  <t957E«-00 
-.3'»27E«-C0 
-.125<«E+00 


•1165E+01 
.1078E+01 
•1262E-01 


-.7907E+00       -.1<»53E*00 


-.70<a£*G0 
-.59i»4E+00 
-.791.1E+00 


-.128iE+01 
•.1159E+01 
-.7233E+00 


NPUT ., 
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OAOS 


TOTAL    SOLUTION    TIME. 


2.63 

89.8<» 

.25 

13.36 

35.18 

3.99 

1^5. 2<f 


Fig.      34   Continued. 
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(1333)  NOLL03333CI 
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DEFLECTION  (FEET) 


FIGURE  36:      LOAD-DEFLECTION' CURVE  -  CENTERLINE  OF  SPAN  OVER 
INTERIOR    BEAM  _  BRIDGE  2  (Test  No.  2  500) 
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V.  Bridge  #3 


Description 


Bridge  #3,  shown  in  Figures  2  and  3  is  a  sloping  straight  bridge 
with  a  30  skew.   Constructed  in  1938,  it  was  located  on  U.S.  41A  over 
the  Elk  River.   It  was  a  simple  span  of  reinforced  concrete  T-Beara  mono- 
lithic construction.  Figures  E-ll  through  E-13  show  details  of  the  bridge 
taken  from  construction  drawings.   Static  testing  of  one  end  span  of 
bridge  #3  was  performed  in  July,  1970.  Once  again,  the  dimensions  shown 
on  the  construction  drawings  do  not  match  Figure  9.  Nevertheless,  the 
author  decided  to  use  the  dimensions  shown  in  Figure  9  for  a  first 
analysis.   Figure  38  describes  the  node  numbering,  Figure  39  the  beam 
element  numbering,  and  Figure  40  the  plate  element  numbering  for  the 
deck. 


Modulus  of  Elasticity 

From  Table  6: 

V     - 
c 

6,500  psi 

By  calculation: 

E 

c 

667782  ksf 

C   -  C 
xx    yy 

683152.85 

C 
xy 

102472.92 

G 

290339.96 

xy 


Moments  of  Inertia 

Bending  and  torsional  moments  of  inertia  were  calculated  as  shown 
in  Figure  41  for  the  concrete  stringer  and  diaphragm,  both  of  rectangular 
cross-section . 
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By  the  usual  process  in  mechanics 


I  =  88978.5  in4  =  4.291016  ft 
x 

I  =  18954.0  in4  =  0.914063  ft 


J  =  (1  -  .63x18/39) (39xl83/3) 

=  53771.036  in4  =  2.593123  ft4 
Area  =  702  in2  =  4.985  ft2 


FIG.   41  -  MOMENT  OF  INERTIA  CALCULATIONS  FOR  GIRDER  AND  DIAPHRAGMS 
OF  BRIDGE  #3 


112 


4.   Correlation  of  Computer  and  Experimental  Data  for  Bridge  #3 

Figures  42  through  45  show  load  deflection  relationships  in  a 
similar  way  as  was  described  for  bridge  #2.  Overprinted  on  these  fig- 
ures are  the  results  of  the  computer  program  with  the  symbol  <B> . 
As  for  bridge  #2,  the  SSAP2  results  agree  fairly  well  with  the  experi- 
mental data,  as  long  as  the  load  is  within  the  linear  portion  of  the 
load  deflection  curve.  Table  10  compares  these  results  in  a  little  more 
detail. 

Two  runs  were  performed  for  bridge  #3,  one  with  a  center  diaphragm 

and  the  other  without  the  center  diaphragm.  The  input  total  load  for 

each  run  for  the  bridge  was  842  kips,  moment  distributed  to  the  girders 

from  the  loading  points  shown  in  Figure  9.   When  we  first  take  a  look 

at  the  data  for  842  kips,  considerable  disagreement  between  computer  and 

experimental  results  is  evident.   However,  note  that  in  Figure  42,  the 

shape  of  the  deflection's  variation  across  the  cross-section  changes 

materially  after  a  load  of  492  kips  with  a  rapid  dishing  out  of  the 

center  of  the  roadway  of  the  bridge,  indicating  some  sort  of  non-linear 

** 
type  of  behavior.    Therefore,  as  we  reduce  the  loading  to  492  kips  and 

once  again  make  the  comparison,  we  see  that  there  is  a  fairly  good 

correlation  between  predicted  and  measured  response.  Apparently  bridge  #3 

develops  the  local  non-linearity  at  a  fairly  low  load.  The  reason  for 

this  phenomenon  is  not  quite  understood  by  the  author  or  described  in 

reference  (1).  We  should  also  note  that  modeling  with  diaphragms  does 

make  a  significant  difference  in  computer  results  for  this  bridge. 


*  842  kips  was  estimated  as  an  upper  limit  for  the  linear  load 
deflection  relationships  of  Figures  43  and  44. 
**  The  same  phenomenon  is  evidenced  for  bridge  #4  for  a  large  load, 
but  does  not  appear  in  the  diagrams  for  bridges  #1  or  #2 . 
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VI.  Bridge  #4 

1 .   Description 

Bridge  #4  was  a  three-span,  continuous,  non-composite  design 
located  on  Mansford  Road  over  the  Elk  River.  Figure  E-14  shows  the 
single  construction  drawing  available  to  the  author.  Photographs  of  the 
bridge  are  shown  in  Figure  4.  This  steel  girder  bridge  was  built  in  1956 
to  support  an  H-15  load,  and  it  was  designed  to  act  non-compositely. 
However,  experimental  strain  readings  indicated  that  a  large  degree  of 
composite  action  did  exist  up  to  yielding  of  the  steel  at  a  load  of 
approximately  500  kips.      From  a  pragmatic  point  of  view  the  computer 
analysis  should  have  been  done  without  composite  action.  On  the  basis  of 
experimental  evidence,  however,  it  was  decided  to  input  the  data  for  com- 
posite action.   Figure  46  describes  the  node  numbering,  Figure  47  the 
beam  element  numbering,  and  Figure  48  the  plate  element  numbering  for  the 
deck. 


2. 


3. 


Modulus  of  Elasticity 

From  Table  6: 

V 

c 

- 

5,600  psi 

By  calculation 

i 

E 
c 

- 

614369  ksf 

C   -  c 
xx    yy 

- 

628510.28 

C 
xy 

s 

94276.542 

G 
xy 

m 

267116.86 

Moments  of  Inertia 

Bending  and  torsional  moments  of  inertia  were  calculated  for  this 
bridge  in  a  similar  way  to  bridge  #1.  The  results  are  shown  in  Figure  49. 
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FIG.  49  -  MOMENTS  OF  INERTIA  CALCULATIONS  FOR  STRINGERS  AND  DIAPHRAGMS- 
BRIDGE  #4 
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4.   Correlation  of  Computer  and  Experimental  Data  for  Bridge  #4 

Bridge  #4  behaved  in  practically  an  identical  way  to  bridge  #1. 
Figures  51  through  53  show  experimental  load  deflection  relationships 
overprinted  with  the  computer  results  by  a  symbol  <S>  .   This  time  the 
loadings  were  not  symmetrically  placed  as  seen  in  Figure  10.   Therefore, 
for  the  convenience  of  the  reader  the  applied  loads  (after  moment  dis- 
tribution to  the  girders)  are  given  in  Table  11.   The  excellent  cor- 
relation between  predicted  and  experimental  response  is  self-evident. 

Studies  were  also  made  for  bridge  #4  for  different  modeling 
techniques.   As  for  bridge  #1,  the  same  conclusion  applies  here  with 
regard  to  aspect  ratio  and  type  of  modeling. 
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FIGURE   51.      LOAD-DEFLECTION  CURVE  _  CENTERLINE  OF 
SPAN  OVER  EXTERIOR  BEAM  _  BRIDGE  4. 
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TABLE   11  -  LOADS  APPLIED  TO  BRIDGE  #4 

.  , . , .NODAL  POINT  LOADS 

NODE  LOAD  APPLIED  LOADS 

NO,  CASE   RX       RY  RZ  MX       MY  MZ 

72   1  -0.000   -0.000  -24,610  -0.000   -0,000  -0.000 

74   1  -0.000   -0.000  -93.390  -0.000   -0.000  -0.000 

76   1  -0.000   -0.000  -93.390  -0.000   -0.000  -0.000 

78   1  -0.000   -0.000  -24.610  -0.000   -0.000  -0.000 

92   1  -0.000   -0.000  -25.450  -0,000   -0.000  -0.000 

94   1  -0.000   -0.000  -87,730  -0.000   -0,000  -0.000 

96   1  -0.000   -0.000  -5.650  -0.000   -0.000  -0.000 

98   1  -0.000   -0.000  .830  -0.000   -0.000  -0.000 
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VII.  CONCLUSIONS 

1.  The  SSAP2  program,  correctly  modeled,  gives  excellent  correlation  between 
predicted  and  experimental  results  for  straight,  continuous,  composite 
steel  girder  concrete  deck  bridges  and  for  skew,  simple  span  composite 
concrete  girder  and  concrete  deck  bridges  when  the  skew  is  under  30°.  The 
reason  for  limiting  the  angular  deviation  of  the  skew  line  from  perpendi- 
cularity to  30  is  that  the  computer  runs  were  limited  to  this  maximum 
value.   The  author  hesitates  to  extrapolate  the  information  much  beyond 
that  without  further  study.   Conversations  with  Dr.  Felippa  indicate  that 
the  plate-shell  element  may  give  poor  results  (become  too  stiff)  when  the 
deviation  angle  is  more  than  30  . 

2.  This  research  is  limited  to  a  linear  analysis  program;  therefore,  the 
computer  program,  as  it  now  stands,  can  only  safely  be  used  when  the 
response  of  the  bridge  is  known  to  be  in  a  linear  range.   It  should  be 
possible,  by  a  stepwise  method,  to  change  the  properties  of  a  bridge  and 
thereby  extend  the  range  of  correlation  into  the  elasto-plastic  zone. 
More  research  needs  to  be  done  in  this  area  to  determine  the  accuracy  of 
this  supposition. 

3.  Modeling  the  bridge  as  a  beam  for  computer  analysis  is  not  recommended 
except,  perhaps,  for  very  basic  preliminary  design  for  estimating  purposes. 

A.   The  use  of  a  beam  element  for  the  stringers  of  the  bridge,  slave  connected 
to  a  plate-shell  element  for  the  deck  offers  the  most  economical  model, 
considering  such  items  as  cost  per  computer  run,  limit  on  the  aspect  ratio, 
and  convergence  to  the  true  solution. 

5.  Diaphragms,  as  they  are  usually  constructed,  do  not  seem  to  play  an  important 
part  in  changing  the  vertical  deflections  of  either  straight  or  skew  bridges. 
Their  use,  however,  in  bridge  design  can  be  mandatory  for  other  purposes. 
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VIII.  RECOMMENDATIONS 

1.  It  is  recommended  that  a  curved  beam  element  be  investigated  for  its 
correlation  in  the  SSAP2  program  with  experimental  data  on  curved  girder 
bridges. 

2.  The  capabilities  of  a  dynamic  version  of  SSAP2,  the  SAP-IV  program, 
should  be  examined  with  respect  to  correlation  of  observed  dynamic  be- 
havior on  some  bridges.   It  is  know  that  a  motion  picture  was  made  of  a 

(12) 
pedestrian  undercrossing  subjected  to  man-induced  vibrations.      It  is 

possible  to  calculate  the  actual  response  of  the  bridge  from  the  motion 

picture  and  thus  recover  the  experimental  data  for  verification  with  the 

dynamic  computer  program. 

3.  The  possibility  of  non-linear  programs  should  be  investigated  for  their 
correlation  with  the  bridges  described  in  this  report  on  a  grid  model 
basis. 
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IX.  APPENDICES 

Appendix  A  contains  one  version  of  a  theoretical  finite  element  analysis 
via  the  statements  in  SSAP2.   The  theory  is  limited  to  only  those  elements 
which  were  used  in  this  research. 

Appendix  B  consists  of  excerpts  taken  directly  from  the  User's  Manual 

(13) 
for  the  SSAP2  computer  program      for  the  rod,  beam,  and  plate-shell  ele- 
ments.  Supplementary  information  concerning  slave-connected  nodes  and  node 

(9) 
boundary  conditions  are  excerpted  from  SAP- IV. 

Appendix  C  contains  a  listing  of  the  program.   Provision  is  left  in  the 
listing  to  replace  additional  elements  of  the  SSAP2  program  as  called  for  in 
reference  (13).  The  printout  of  the  listing  included  in  this  report  will  list 
the  additional  elements  as  external  references.   The  IBM  360/370,  CDC  6400,  and 
Honeywell  6060  versions  of  SSAP2  are  given  in  Appendix  C. 

References  are  given  in  Appendix  D,  and  reduced  abbridged  construction 
drawings  for  th£  four  bridges  described  in  this  report  are  given  in  Appendix  E. 

Appendix  F  contains  excerpts  from  Dr.  Felippa's  paper  "A  Refined 
Quadrilateral  Element  for  Analysis  of  Plate  Bending." 

Appendix  G  contains  notes  received  from  Dr.  Felippa  concerning  the  LST 
formulation  used  in  Subroutine  SLST. 
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APPENDIX  A 
Finite  Element  Background  Theory  for  SSAP2  Computer  Program 

A.   Stiffness  of  Rod  Elements 

1.1  Introduction 

We  have  seen  in  the  main  body  of  this  report  that  the  bridges  were 
first  idealized  as  an  assembly  of  structural  elements  and  that  these 
elements  were  attached  to  each  other  at  node  points.   The  SSAP2  program 
utilizes  the  matrix  displacement  method,  in  which  the  stiffness  charac- 
teristics of  elemental  structural  elements  are  first  determined.  Finally, 
the  stiffness  matrix  for  the  whole  structure  is  formed  by  adding  the 
element  stiffness  matrices;  and  the  governing  joint  equilibrium  equations 
are  written  in  the  following  form: 

K  u  =  R  (A.l) 

where 

K  ■  assembled  stiffness  matrix  for  entire  structure 
u  =  coordinate  displacement  matrix  of  node  points 
R  =  coordinate  reactions  on  elements  at  node  points 

The  derivation  of  element  stiffnesses  will  now  be  shown. 

1.2  Stiffness  and  Flexibility  of  a  Straight  One-Dimensional  Prismatic  Bar 

Consider  ij  as  an  element  in  a  one-dimensional  structure  oriented 
along  the  X  direction  as  shown  in  Figure  A-l.  Node  i  is  held  fixed 
against  translation  while  node  j  is  given  a  unit  force  in  the  X  direction, 
u.  represents  the  elongation  of  the  bar  of  length  L  in  the  direction  of 
the  force. 


The  derivation  can  be  done  in  many  ways.   That  shown  here  is  only  one 
viewpoint,  that  of  the  author's,  and  may  be  considerably  different  for  some 
of  the  theory  used  by  Dr.  Wilson  for  SSAP2.   Some  of  the  one  and  two-dimensional 
presentation  for  rods  and  beams  follow  lecture  notes  taken  by  the  author  while 
attending  Dr,  Kamel's  lectures  at  the  University  of  Arizona. 
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FIG   A-l   ONE  DIMENSION    ELEMENT  WITH 
UNIT    AXIAL    LOAD 
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A  ■  member  cross  sectional  area 

E  =  elastic  modulus  of  member  material 

Since  u  is  the  displacement  due  to  a  unit  load  at  point  j ,  —  ■  f 

represents  the  flexibility  of  the  bar  at  point  j  when  end  i  is  fixed 
against  translation.  Now  reconsider  the  same  bar,  as  in  Figure  A-2, 
but  this  time  the  displacement  at  point  j  equals  unity. 

We  wish  to  ascertain  the  force  k  needed  for  this  unit  displacement. 

e   -  f  (A. 5) 


From  geometry 

From  Hooke's  Law: 
From  statics: 


E(ex) 


Ox(A) 


E 
L 

EA 
L 


(A. 6) 
(A.  7) 
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t  +Y 


k  *-^>£i 


+  X 


FIG.    A-2    ONE    DIMENSION  ELEMENT    WITH 
UNIT    ELONGATION. 


Since  k  is  the  force  at  point  j  for  a  unit  displacement  at  point  j , 

EA 
k  =  - —  represents  the  stiffness  of  the  bar  at  point  j  when  end  i  is 

fixed  against  translation. 

1.3        Stiffness  Coefficients  for  a  Single  Straight  One-Dimensional  Prismatic 
Rod 

Consider  a  one-dimensional  structure  oriented  in  the  X  direction 
in  which  bar  ij  is  a  single  element  of  the  structure,  as  shown  in 
Figure  A-3.  We  consider  three  cases: 

Case  1:  u.  =  1  to  the  right 
l 

u.  =  0  (fixed) 

Figure  A- 3a  shows  the  equilibrating  forces  at  nodes  i  and  j .  Note 
that  the  reaction  at  j  is  assumed  in  the  positive  coordinate  direction 
for  use  in  an  equilibrium  equation;  although  it  is  recognized  that  the 
final  direction  of  the  force  at  j  would  be  to  the  left  to  produce  a 
compressive  force  in  the  bar. 
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FIG.  A-3    SUPERPOSITION    OF    REACTIONS 

-    FOR   UNIT   ELONGATIONS   AT  BOTH 
ENDS   OF  ONE    DIMENSION  ELEMENT 


Case  2: 


u.  =  0  (fixed) 

1 

u.  =  1  to  the  right 


Figure  A- 3b  shows  the  equilibrating  forces  for  this  condition. 
Once  again  the  forces  at  all  nodes  are  assumed  to  be  in  the  positive 
coordinate  direction  for  insertion  in  the  equilibrium  equations. 

Case  3; 

In  the  general  condition  of  the  structure  under  load  it  is  probable 
that  neither  u.  or  u .  will  be  equal  to  zero.   However,  the  forces  R  at 
nodes  i  and  j  can  be  arrived  at  by  a  superposition  of  Figures  A-3a  and 
A-3b  as  follows: 


A-A 


EA,      x         EA,      N 

r(ui}  ■  ir(uj) 


EA,  N 

r(ui  -  v 


kii(ui)+kij(uj) 


(A.  8) 


EA,      v     ,    EA,      . 
"     lT(Ui)  +~  (uj} 

EA,  N 

-  r(ui"uj> 


Vui)  + W 


(A. 9) 


where 

k       «k       »+M 
ii         jj  L 

k       -k       -  -^ 
ij  ji  L 

Equations   (A. 8)    and   (A. 9)    can  also  be  expressed  in  matrix  form: 


or 


R. 


k  k 

ii        Kij 


kji        kjj 


K     u 


?[-\    1][-] 


(A. 10) 


(A. 11) 


where 


R  »  node  forces  of  rank  [2x1] 

K  ■  rod  stiffness  matrix  of  rank  [2x2] 

u  ■  node  deflections  of  rank  [2x1] 
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1.4        Calculation  of  Strain 


The  strain  of  a  rod  is  calculated  by  the  following  equation: 


u.  -  u. 
-J i. 


(A. 12) 


1 .5    Stiffness  Matrix  for  a  Series  of  Rods 

Consider  a  structure  made  up  of  two  prismatic  rods  connected 
together  at  node  2,  as  shown  in  Figure  A-4. 


t  +  Y 


3>OiAj 


E2A2 
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L2 


■+H- 


A 


+  X 


FIG.  A-4    TWO    PRISMATIC    RODS    IN  ONE 
DIMENSION    STRUCTURE. 


Nodes  1  and  3  are  supported  nodes.  We  desire  to  show  how  each  element 
stiffness  matrix  is  superimposed  to  form  the  total  structure  stiffness 
matrix. 


Let 


K,  = 


El  Al 


1     L, 


K„  = 


E2  A2 


2    L, 


(A. 13) 
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Using  equation  (A. 10) 


and 


R„ 


By  superposition 


Ki    "Ki 


■Ki     Ki 


2     2 


-K2     K2 


K. 


-K. 


i—          -^ 

Ul 

U2 

L        _J 

-K. 


K. 


-K. 


-K. 


r-      -i 

Ul 

U2 

_U3_ 

or 


K, 


-K, 


R  =  K  u 


-K 


K1+K2     -K 


-K, 


K 


Ul 

2 

U2 

2 

U3 

L            —J 

(A. 14) 
(A. 15) 


as  previously  defined. 

1.6   Strain  of  an  Inclined  Rod 

A  prismatic  rod  element  in  a  one-dimensional  structure  has  two 
degrees  of  freedom  representing  the  movement  of  each  point  in  the  one- 
dimensional  direction.   For  an  inclined  rod,  in  a  plane,  where  each 
node  coordinate  is  represented  by  two  dimensions,  there  are  four  degrees 


A-7 


of  freedom  in  the  global  system.   A  situation  of  this  sort  is  shown  in 
Figure  A-5  where  rod  ij  might  be  one  element  of  a  two  dimensional  truss. 


t+Y 

1 

vY' 

n                   _n         «         J_V' 

3 

i         J 

s_^f^x<^          ^ 

Load       +^ 

FIG.  A 


PRISMATIC    TRUSS    ELEMENT 


The  truss  has  global  coordinates  XY,  whereas  the  element  has  local 
coordinates  X'Y'.   Let  us  assume  that  under  load,  node  points  i  and  j 
move  from  their  original  positions.  We  desire  to  express  the  strain  of 
the  rod  in  terms  of  component  movement  of  its  two  nodal  points. 

Let  u^,v^,  u.s,v.s ,  represent  global  coordinate  movements  of  node 
points  as  shown  in  Figure  A-6.   u!  ,v! ,  u.'  ,v' ,  represent  the  components 
of  nodal  point  movements  in  terms  of  the  local  coordinates  of  the  in- 
clined rod. 

Also  consider  that  rod  ij  makes  an  angle  8  with  the  X-axis.   Define 
I   =  Cos  0  and  m  =  Sin  6. 

From  Figure  A- 7: 


u: 


u.£  +  v.m 


v. I   -  u.m 


(A. 16) 
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FIG.  A-6  GLOBAL  AND  LOCAL  COORDINATE 
DISPLACEMENTS  OF  ROD  IN  TWO 
DIMENSIONS. 


+  Y 
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FIG.    A-7    GEOMETRY    OF    COORDINATE 
TRANSFORMATION  IN   TWO 
DIRECTIONS. 
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Similarly: 


u'. 

3 


u.Jl  +  v.m 

3  3 


v.l   -  Ujin 

3  J 


(A. 17) 


The  strain  becomes: 


c  '    - 


e'   -J- 


u.£  +  v.m  -  u. A  -  v.m 

3  3 J-  3- 


—  [-£  -m  +«.  +m] 
Xi 


u. 

l 


V. 

1 


V  . 

3 


(A. 18) 


or 


[  e'    ]     =     [Te,u]     [  u  ] 

lxl  1x4        4x1 


(A. 19) 


1 .7    Stiffness  Coefficients  for  an  Inclined  Rod 

The  stiffness  matrix  for  an  inclined  rod  in  terms  of  global 
displacements  can  be  derived  as  a  superposition  of  four  elementary  cases, 

Case  1: 


u.  =  1  + 

l 

u.  =  0 
3 

v.  =  0 

l 

v.  =  0 
3 


(Figure  A-8a) 
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t +Y 


+  X 


+  X 


(a)  (b) 

FIG.  A-8  END    NODAL   FORCE  COMPONENTS    FOR 

GLOBAL    COORDINATE    UNIT    DISPLACEMENTS. 
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Case  2: 
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Strain: 

Stress: 

Force : 

X  Comp. : 
Y  Comp. : 
Case  3 : 
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By  similar  reasoning  as  in  Case  1: 

R.   -  -  aS,2 

IX 


R.   =  -  aim 

iy 


Case  4 : 


V  . 

3 

=  It 

uj 

=  0 

v. 

l 

=  0 

u. 

X 

=   0 
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By  similar  reasoning  as  Case  2 : 


R.   =  -  ami 

IX 

2 

R.   =  -  am 

In  the  general  condition  of  the  structure  under  load,  it  is  probable 
that  neither  u.,  v.,  u  ,  or  v.  will  be  equal  to  zero.  However,  the  forces 
at  nodes  i  and  j  can  be  arrived  at  by  a  superposition  of  Cases  1  through 
4  as  follows: 


2  2 

R.   ■  ai  u.  +  amiv.  -  ai  u  -  amUv, 
ix       l       l       -j       d 


R.  =  -  R.   by  equilibrium 
}X       xx 

2  2 

R.   =  aimu.  +  am  v.  -  aimu.  -  am  v . 
ly       l       l       j  3 


R.   =  -  R.   by  equilibrium 
;jy      iy 


(A. 20) 


In  matrix  form  the  reactions  can  be  written  as : 


—    - 

'an2 

-a*2 

R. 

IX 

aim 

-aim 

u. 

l 

R. 

iy 

a£m 

2 
am 

-aim 

2 
-am 

v. 

i 

R. 
3X 

-at2 

-aim 

ai2 

aim 

u. 

R. 

Dy 

-aim 

2 
-am 

aim 

2 

am 

v. 

(A. 21) 


or 


[R]   =   [K]  [u] 


(A. 22) 


where 


R  =  node  force  components  of  rank  [4x1] 

K  =  rod  stiffness  matrix  of  rank  [4x4] 
u  ■  node  deflections  of  rank  [4x1]. 
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Equation  A.  22  can  also  be  written  as 


R. 

-£ 

R. 

iy 

-m 

R. 

=  a 

«, 

R. 

Dy 

m 

-I  -m  i  m 


— 

-i 

u. 

1 

V. 

1 

u . 

V. 

(A. 23) 


or 


[R]    =  a  [T1-]  [T]  [u] 


(A. 24) 


1.8   Global  to  Local  Coordinate  Transformation 

Using  equations  (A. 16)  and  (A. 17)  the  local  nodal  displacements 
can  be  written  in  matrix  form  as: 


"u!" 

i 

= 

u'. 
D_ 

I        m   0   0 
0   0   I        m 


u. 

1 

V. 

1 

u . 
3 

V. 

D 

L         J 

(A. 25) 


1 .9    Three  Dimensional  Truss  Element 

Figure  A-9  shows  a  typical  truss  element  connected  to  joints  i  and 
j.   All  dimensions  are  assumed  positive;  however,  the  development  is 
correct  for  elements  of  different  orientation. 


*  The  derivation  follows  that  given  in  SOLID  SAP,  except  that  references  to 
the  SSAP2  program  have  been  added. 
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FIG.   A -9     TYPICAL    TRUSS    ELEMENT. 


LET   DX  -  x  -  xi 

DY  -  yj  -  y± 
DZ  =  z  -  z. 


^  "  /  DX2  +  DY2  +  DZ2 


TRUS  74       * 


TRUS  7b 
TRUS  76 


TRUS  78 


(A.26) 


The  axial  strain  and  displacement  of  any  point  between  i  and  j  in 
the  s-direction  are  given  by  the  following  equations: 


*  Global  axes  are  oriented  as  in  SOLID  SAP.  (13) 

**  Italics  type  refers  to  program  statement  numbers  in  Appendix  C. 

***  Note  that  SSAP2  uses  (x .  -  x.)  which  leads  to  a  negative  direction 
cosine;  but  the  situation  is  reversed  back  in  TRUS  80  when  comput- 
ing the  strains  for  equation  (A. 30). 
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e   ■  — (u  .  -  u  .) 
s     L  s^    si 


u   =  u  .  +  s  e 
s      si      s 


(A. 27) 
(A. 28) 


In  terms  of  global  displacements  the  axial  displacement  u  can  be 
written  in  terms  of  its  global  components  as: 


DX      DY      DZ 
u   =  - —  u  +  - —  u  +  - —  u 
s     L   x   L   y-   L   z 


(A. 29) 


When  equation  (A. 29)  is  evaluated  at  joints  i  and  j  and  substi- 
tuted in  equation  (A. 27)  the  following  expression  for  element  strains 
results: 


e   =  -r  [-  DX  -  DY 
J*       L2 


-  DZ  DX  DY  DZ] 


u  . 

XI 


u  . 


Zl 


XD 


YD 


u  . 


(A.  30) 


TRUS  80 

TRUS  81 

TRUS  82 

TRUS  83 

TRUS  84 

TRUS  85 


ST  (1,1) 
ST  (1,2) 
ST(1,Z) 
ST(1,4) 
ST  (1,5) 
ST  (1,6) 


DX/XL2 
DY/XL2 
DZ/XL2 

-  ST(1,1) 

-  ST(1,2) 

-  ST(1,3) 


Therefore,  the  strain-displacement  matrix  for  a  truss  element  is 
a  1  x  6  matrix  and  is  given  by: 

a  =  ~  [  -  DX  -  DY  -  DZ  DX  DY  DZ]    (A. 31) 
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The  axial  stress  becomes: 


o   =  E  e 
s       s 


(A. 32) 


In  SSAP2  the  stiffness  element  matrix  is  given  by  a  general 
equation : 


K      I  a  c  a  d  V 

m  —  J     m  m  m     m 


(A. 33) 


vol 


Since  the  volume  of  the  prismatic  truss  element  is  equal  to  the 
cross-sectional  area  of  the  element,  A,  tiroes  the  length  of  the  element, 
L,  the  element  stiffness  can  be  calculated  from  equation  (A. 33)  as: 


K  ■ 


-D 
X 

-D 

y 

AE 

-D 
z 

L3 

D 
X 

D 

y 

D 
z 

[  -  D   -  D   -  D   D   D   D  ]   (A.  34) 
x    y    z  x  y  z 


Note  that  this  stiffness  has  the  same  form  as  Equation  (A. 23)  for  the 
two-dimensional  case. 

The  expansion  of  Equation  (A. 34)  becomes: 
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K   = 


AE 


D                D  D  D  D    I      -D  -D  D 

X<v           xy  xz,           x  XV  -DD 

^2                     I  ^2 

D  D             D  D  D    '    -D   D  -D  -D  D 

y  x           y  y  Z|       y  x  y  y  z 

>*     2    I  ^v     2 

D   D           D   D  D           -D  D  -D  D  -D 
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-D   D 

y  x 


•D   D 
Z    X 
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x  y         x  z 
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D  D  D   D 

x  y         x  z 


-D           -D   D    ,  D   D  D 

y  .      y  zl  yz  y.yz 

\      2'  \     2 

-D  D           -D       I  D  D  D   D             D 

zy            z'  zx  zy            z 


In   SSAP2: 


(A. 35) 


TRUS     79 

TRUS     87 
TRUS     88 


XX  «  EAL  -  E(MTYPE)  *AREA(MTYPE)  *XL 
DO  ZOO  L  =  1,6 
YY  =  ST(1,L)*XX 


forms  ^f-   [   -   DX  -   DY 
L2 


TRUS     89 
TRUS     90 


-   DZ        DX        DY        DZ],   while 

DO  250  K  =  L,6 
S(K,L)   =  ST(1,K)*YY 


fills  in  the  upper  triangle  of  Equation  (A. 35). 

(Examples:  S(131)      =  ~~  "^|  EAL  =  ~-  AE 

L   L        L 

0/0  ,,     -DY  -DX  __.    DXDY  __% 
S(2,l)      =  —r     -r  EAL  -  — r—  AE) 

IT     L         LJ 
After  the  upper  triangle  is  filled  in,  the  lower  triangle  is  filled  in 
by  transposing  the  matrix 


TRUS     91 


250  S(L,K)   =  S(K,L) 
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The  stress  displacement  relationship  is  calculated  as: 
TRUS  92  ST(1,L)   =  E(MFYPE)*ST(1,L) 


[D  ] 
E — 2~-  (see  Equations  (A.  30) 
L  and  (A. 32) 


The  force  displacement  relationship  becomes: 


THUS  93 


300  ST(23L)  =  AREA(MTYPE)*ST(laL) 


AE 


IV 


1-10  Thermal  Loading  on  Truss  Members 

Figure  A-10  shows  a  restrained  truss  element  ij  of  length  L 
subjected  to  a  temperature  change  dT. 


FIG.  A-IO    THERMAL     REACTIONS,  TRUSS 
ELEMENT 
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The  change  of  length  AL  of  a  free  bar  is: 

AL  =  $L(dT)  (A. 36) 

where  8  is  the  coefficient  of  expansion  or  contraction  per  foot 
per  degree  F. 

The  restraining  force  to  counteract  AL  is: 

where  FT  is  the  restraining  force  due  to  a  temperature  change  AT,  E 

is  the  modulus  of  elasticity  of  the  bar,  and  A  its  cross-sectional  area. 

Equating  Equation  (A. 36)  to  (A. 37): 

FT  -  3AE(dT) 
In  SSAP2  the  average  temperature  change  in  the  truss  element  is  used. 

TRUS     98  TEMP  ~   WW   +  T(J))    *  0.5  -  REFT 

where  REFT  is  the  ambient  reference  temperature. 

TRUS     99  FT   =  TEMP   *  THERM (MTYPE)    *  E(MTTPE) 

*  AREA  (MTYPE) 

The  end  reaction  components  become  (positive  coordinate  directions 
assumed) : 

TRUS  100  FX  =  DX  *  FT /XL 

TRUS  101  FY  =  DY  *  FT /XL 

TRUS  102  FZ  =  DZ   *  FT/XL 

1.11   Global  Coordinate  Loading  of  Truss  Members 

Figure  A-ll  shows  the  directions  of  element  node  loading  due  to 
gravity  forces  and  effect  of  temperature.  On  page  B-6  three  cards  are 
described  specifying  the  fraction  of  gravity  (element  load  multipliers) 
in  the  three  global  coordinate  directions.*  A  fourth  card  specifies  the 
fraction  of  thermal  loading  to  be  added.  Four  different  element  load 
cases  may  be  specified,  and  are  identified  as  load  cases  A,  B,  C,  and  D 


*  See  note,  page  B-3. 
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FIG.  A- II  COMPONENTS  OF  GRAVITY  LOADING 
FOR  TRUSS  MEMBERS. 
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for  the  truss  elements.   Table  A-l  protrays  the  arrangement  of  information 
calculated  by  the  following  program  statements: 

TABLE  A-l  . 
Gravity  and  Thermal  Loading  Cases  for  SSAP2. 


Load 
Card 

\l 

Element  Load  Case 

L  =  1 
A 

L  =  2 
B 

L  =  3 
C 

L  -  4 
D 

1 
2 
3 

X 

y 

z 

P(1,D 
P(2,l) 
P(3,l) 

P<1,2) 
P(2,2) 
P(3,2) 

P(l,3) 
P(2,3) 
P(3,3) 

P(l,4) 
P(2,4) 
P(3,4) 

4 

Temp 

EMUL 
(1,4) 

EMUL 
(2,4) 

EMUL 
(3,4) 

EMUL 
(4,4) 

TRUS  97 
TRUS  104 
TRVS  105 

TRUS  106 

TRUS  107 
TRUS  108 
TRUS  109 
TRUS  110 
TRUS  111 
TRUS  112 


F  =  WT(MTYPE)*XL/2 

DO  350  L  =  1,4 

TT(2tL)   =  EMUL(L,4)*FT    (Fraction  of 

thermal  load) 

TT(1,L)  m  TT(2,L)/AREA(MTYPE)    (Stress 
due  to  fraction  of  thermal 
load) 

P(ltL)  =  EMUL(Lal)*F-EMUL(L,4)*FX 

P(2jL)  m  EMUL (Ly  2)  *F-EMUL (L,  4)  *FY 

P(3jL)  «  EMUL(L)3)*F-EMUL(L,4)*FZ 

P(4tL)  »  EMUL(L,1)*F+EMUL(L,4)*FX 

P(5jL)  m  EMUL (L, 2) *F+EMUL (L> 4) *FY 

350  P(6,L)  =  EMUL(L,3)  *F+EMUL(L,4)  *FZ 


Two  types  of  loading  are  considered  (1)  dead  loading  TRUS  97   through 
TRUS  112   or  (2)  mass  loading  TRUS  113   through  TRUS  115. 


TRUS  113 
TRUS  114 
TRUS  115 


F  =  DEN  ( MTYPE)* AREA  (MTYPE)*  XL/2 
DO  375  L  =  lt6 
375  XM(L)  =  F 
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When  specifying  inertial  mass  loading  the  load  condition  number 
becomes  zero  (page  B-5) . 

1.12   Assembly  of  Stiffness  Matrices 

We  shall  show  the  assembly  of  stiffness  matrices  by  means  of  an 

example.   Figure  A-12  shows  a  four-node  truss  connected  by  five  rod 

elements.  Node  1  is  restrained  in  all  coordinate  directions ,  while 

* 
node  4  is  restrained  in  the  Y  and  Z  direction  only. 


all   areas  =  10  units 
all    E's       =  1000  units 

units  arbitrarily 
chosen  for  this 
problem. 

+  X 


FIG.    A-12 


TRUSS       EXAMPLE 


*  Note  that  all  nodes  must  be  restrained  in  the  Z  direction  for  stability, 

because  the  example  shown  is  one  of  a  two-dimensional  problem  used  with  a 
three-dimensional  computer  program. 
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element  1: 


Figure  A-13  lists  the  input  data. 

In  subroutine  BUSS   the  following  numbers  are  generated  for 


DX 

=  -5 

DY 

=  -5 

DZ 

-  0 

XL2 

-  50 

XL 

=  7.07 

XX 

-  1000(10)7.07  -  70700 

ST(1,1) 

=  7?07  ---707 

ST(1,2) 

"T^bT  =-'707 

ST(1,3) 

-  0 

ST(1,A) 

«=  .707 

ST(1,5) 

=  .707 

ST(1.6) 

-  0 

YY 

-  -.707(70700)  -  50000 

s(i,D 

=  ST(1,1)*YY  =  -.707(50000)  - 

-  35350 

S(2,l) 

-  ST(1,2)*YY  -  -.707(50000)  - 

-  35350 

S(3,l) 

-  ST(1,3)*YY  =  0 

S(A,1) 

-  35350 

S(5,l) 

«  35350 

S(6,l) 

-  0 

ST(1,1) 

-  E*(-.707)  -  -  707 

ST(1,2) 

-  -  707 

ST(1,3) 

-  0 

ST(1,4) 

-  707 

ETC. 

Program  calculates  i  -  j  first. 
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At  the  end  of  subroutine  EUSS   the  following  are  entered  on  File  1 
in  sequence 


6 

ND 

2 

NS 

(0,0,0,1,2,0) 

LM(I),L+1,ND 

707 

707 

0 

-707 
-707 

ST(L,K) 

0 

707 

707 

0 

-707 

-707 

0 

etc. 

RUSS   calls  subroutine  CALBAN   which  in  turn  rewrites  the  information 
on  File  2  as  follows  (after  calculating  the  bandwidth) : 


73 

LRD 

6 

ND 

(0,0,0,1,2,0) 

LM(I) 

-35350  ' 

-35350 

0 

35350 

S(I,J 

35350 

0 

etc. 

Eventually  subroutine  ADDSTF   picks  this  information  off  of  File  2 
to  use  ic  in  the  following  way: 

For  member  1  connecting  node  1  to  node  2 


1    L3 


-5 

-5 
0 
5 
5 
0 


[-5  -50550] 
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Kl  - 


where 


10 


353.4 


xl 


yi 


u 


Zl 


x2 


y2 


z2  L_ 


Uxl 

V 

"2i 

UX2 

V 

Uz2 

25 

25 

0 

-25 

-25 

o"" 

25 

25 

0 

-25 

-25 

0 

0 

0 

0 

0 

0 

0 

-25 

-25 

0 

25 

25 

0 

-25 

-25 

0 

25 

25 

0 

0 

0 

0 

0 

0 

0 

10(1000) (25) 


=   707 


353.4 
In  similar  fashion  for  member  2  connecting  node  1  and  node  3, 


u 


K^  = 


10 
125 


U 


xl 


yi 


zl 


x3 


y3 


z3 


xl 

25 

0 
0 
-25 
0 
0 


u 


yi 

o 

0 
0 
0 
0 
0 


u 


zl 
0 

0 

0 

0 

0 

0 


Ux3 
-25 

0 

0 

25 

0 

0 


U 


y3 

o 

0 
0 
0 
0 
0 


u 


z3 

0 

0 

0 

0 
0 

0 


where 


10000(25) 
125 


=   2000 
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For  member  3: 


K, 


10 
125 


U 


u 


x2 

Jy2 

'z2 
x3 
V3 
'z3 


U 


x2 


y2 


z2 


x3 


y3 


u 


z3 


0 

0 

0 

0 

0 

0 

0 

25 

0 

0 

-25 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

-25 

0 

0 

25 

0 

0 

0 

0 

0 

0 

0 

For  member  4: 


For  member  5: 


x3 


U 


y3 


u 


z3 


U 


x4 


U 


y4 


U 


z4 


K, 


10 
125 


x3 


U 


y3 

Jz3 
Jx4 
y4 
'z4  L 


25 

0 

0 

-25 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

25 

0 

0 

25 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

10 


353.4 


U 


x2 


x2 

Jy2 

Jz2 
Jx4 

Jz4 


y2 


u 


z2 


u 


x4 


u 


y4 


z4 


25 

-25 

0 

-25 

25 

0 

-25 

25 

0 

25 

-25 

0 

0 

0 

0 

0 

0 

0 

-25 

25 

0 

25 

-25 

0 

25 

-25 

0 

-25 

25 

0 

0 

0 

0 

0 

0 

0 

By  superposition  the  stiffness  K  for  the  entire  structure  is 
generated  and  inserts  into  Equation  (A.l). 
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< 

/Zl 

Ux2 

°y2 

£ 

°x3 

Dy3 

< 
/Z3 

Ux4 

/y4 

'     _ 

V 

2707 

707 

0 

-707 

-707 

0 

-2000 

0 

0 

0 

0 

0 

•  xl 

V 

707 

707 

0 

-707 

-707 

0 

0 

0 

0 

0 

0 

0 

•yi 

Rzl 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

M 

Rx2 

-707 

-707 

0 

1414 

0 

0 

0 

0 

0 

-707 

707 

0 

Ux2 

Ry2 

-707 

-707 

0 

0 

3414 

0 

0 

-2000 

0 

707 

-707 

0 

Uy2 

Rz2 

■Ku» 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

Jtf 

x3 

-2000 

0 

0 

0 

0 

0 

4000 

0 

0 

-2000 

0 

0 

Ux3 

y3 

0 

0 

0 

0 

-2000 

0 

0 

2000 

0 

0 

0 

0 

uy3 

Rz3 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

M 

Rx4 

0 

0 

0 

-707 

707 

0 

-2000 

0 

0 

2707 

-707 

0 

Ux4 

V 

0 

0 

0 

707 

-707 

0 

0 

0 

0 

-707 

707 

0 

•  y4 

R*4 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

•  z4 

But  from  Figure  A-12  we  note  that  many  nodal  component 
deflections  will  be  zero,  and  the  corresponding  matrix  multiplica- 
tions drop  out. 

Therefore,  subroutine  GAUSS   has  only  five  equations  left  to 
solve  for  the  following  nodal  displacements: 


U 


x2 


y2 


x3 


U 


y3 


u 


xA 


.0025  feet 
-.0096  " 

.0025  " 
-.0146  " 

.0050  " 
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Using  Equations  (A. 30)  and  (A. 32)  the  element  forces  are  generated 
as  follows: 

Force  in  member  1  =  -7.07  kips 
Force  in  member  2  =  5 
Force  in  member  3  =  10 
Force  in  member  4=5 
Force  in  member  5  =  -7.07 

Although  the  example  shown  was  for  a  statically  determinate 
structure,  the  solution  of  a  statically  indeterminate  structure  would 
be  prepared  the  same  way.   The  stiffness  method  thus  eliminates  the 
traditional  subdivisions  in  many  undergraduate  curricula  between 
determinate  and  indeterminate  structures. 


Note:   For  a  pin  connected  truss  rod  elements  would  be  used. 

For  a  welded  truss  beam  elements  are  recommended,  especially 
if  the  secondary  stresses  might  be  of  importance. 
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B.  Stiffness  of  a  Prismatic  Beam  Element 

2.1    Bending  and  Shear  versus  Displacement  or  Rotation 

In  Figure  A-14  beam  ij  is  given  a  unit  y  displacement  at  i.   The 
resulting  end  moments  and  shear  reactions  are  desired.   Since  the  tangents 
at  ends  i  and  j  equal  zero: 


-M, 


M. 


|+Y 


=  O  =  0j=  Aj 


FIG.  A-14   BEAM    VERTICAL   DISPLACEMENT 
AT    NODE    i. 


Use  of  moment-area  concepts  give  the  following  relationships: 
The  deflection  at  i  from  a  tangent  at  j  is: 

M,L 


*  .** 
2   ' 

2EI  3     2EI  3     6EI 


MiLL 


(A. 38) 


Therefore,  the  bending  stiffness  about  the  z  axis  becomes: 


M  -  -  M  -  M 


6EIA 


6EI(1)     6EI 


(A. 39) 


*  Sign  Convention:  +M  is  considered  to  act  in  a  clockwise  direction  at 
end  i  and  in  a  counterclockwise  direction  at  end  j . 

**  1=1  for  the  two-dimensional  derivation. 
z 
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The  shears  become 


2M 

—  v  °  — — 


12EI 


(A.40) 


In  Figure  A-15  beam  ij  is  given  a  unit  y  displacement  at  end  j. 
By  analogy  to  Equations  (A. 38)  and  (A. 39)  the  following  equations 
describe  the  moment  and  shear  reactions: 


M. 


-  v. 


-   M. 


6EI 
=  L2 
12EI 


(A.41) 
(A.42) 


+Y 


Aj  =O  =  0i=9j 


^^ 


FIG.  A-15    BEAM    VERTICAL    DEFLECTION    AT 
NODE    j. 


In  Figure  A-16  beam  ij  is  given  a  unit  counterclockwise  rotation 


at  end  i.    The  deflection  at  i  from  a  tangent  at  j  is  zero 

»    n    "iL  L  *  2d  2  t 
Ai"°"-2EI3  +  2EI3L 


Therefore 


Mi 


(A.43) 


(A. 44) 


*  A  counterclockwise  rotation  is  considered  a  positive  rotation  for 
this  situation  only. 
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f+Y 


0j  =  0=Aj=Aj 


M, 


l^-TL^L)  Mi  ** 


4^7^^) 


Mi  r^; 


FIG.  A-16     BEAM    ROTATION    AT    END    i 


The  rotation  at  i  equals  the  area  under  the  M/EI  diagram. 


M.L      M.  w 

&     =  -   _L_  +  -JL.  k 

i      2EI      2EI  2 


M.L 
l 

4EI 


(A. 45) 


Thus: 


4EI6 

M.  = -^ 

1        L 


4EI(1)       4EI 


(A. 46) 


represents  the  moment  stiffness  at  end  i  due  to  a  unit  rotation  at  i. 
Also: 

-M. 


M.  =  — 

3        2 


2EI 
L 


(A. 47) 


The  shears  become: 


M. 

V.  -  -  V.  -  -±--2-  -  -±.  -  SI   (A.48) 

X       j        L         2L         2 
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In  Figure  A-17  beam  ij  is  given  a  unit  clockwise  rotation  at 
end  j : 


♦  +  Y 


M. 


lVi      6ilik  fVj 


(<^^r 


^^lj:x 


ei  =  o  =  A, 


'  L  J 

FIG.   A-17     BEAM    ROTATION    AT    END   j. 


=  Aj 


By  analogy  to  Equations  (A. 46)  through  (A. 48) 


M.  = 


M.  ■ 


-2EI 
L 

4EI 
L 


-V.  =    V.  - 


6EI 
.2 


(A. 49) 


2.2    Translation  of  Prismatic  Beam  Ends  without  Displacement  or  Rotation 

See  Section  1.3  for  the  stiffness  relationships  developed  for 
truss  members. 


2.3   Torsional  Moments  Versus  End  Rotations  of  a  Prismatic  Beam 

Figure  A-18  shows  beam  ij  subjected  to  a  twisting  moment  at  end 
i  while  restrained  at  end  j. 

From  mechanics  of  materials  the  angle  of  twist  8  can  be  derived 
as: 


e 


T.L 

1 

i  "  JG 


(A. 50) 
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+  Y 


■^=tf 


T: 


6tj«0 
+  X 


i  L  j 

FIG.    A- 18     BEAM    TORSION    AT    END     i 


where  G  is  the  shearing  modulus  of  elasticity,  and  J  is  the  torsional 
constant  expressed  as  a  function  of  the  member's  cross-section.   For 
a  circle  J  is  the  polar  moment  of  inertia.   For  a  rectangular  cross- 
section,  where  warping  is  considered,  the  torsional  constant  can  be 
approximated  by  the  expression: 


h  >  t 


as  defined  in  Figure  A- 19b 


0.63  £  +  0.052  (|-)5] 
n        n 


(a) 


PIG.    A-19    DIMENSIONS    FOR     EQUATION     A-50. 


*     Reference  14,  pg.    227. 
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For  a  prismatic  member  compounded  of  slender  rectangular  areas, 
such  as  an  I  beam,  the  torsional  constant  can  be  expressed  as: 

Ji-Hht3 

where  h  is  the  long  dimension  of  each  rectangular  area  considered. 

For  a  unit  rotation  the  torsional  stiffness  can  be  expressed 
from  Equation  (A. 50)  as: 

Ku  -  r  <A-51> 

where  J  is  the  torsion  constant  about  the  beam  local  1  axis  as  defined 
in  Figure  (A-19). 

When  end  i  is  restrained  and  end  j  is  given  a  unit  twist  rotation, 
the  stiffness  becomes: 

Ktj   -  -f-  (A.52) 

2.4    Assembly  of  Beam  Element  Stiffness  in  Local  Coordinates 

Figure  A-20  is  taken  from  SOLID  SAP  and  defines  the  reference 
coordinate  system  used  in  SSAF2  for  the  three  dimensional  beam  element. 
The  place  which  locates  the  principal  axis  of  the  beam  is  defined  by 

AAA 

node  k  in  the  local  coordinate  system  S- ,  S„ ,  S_.   Table  2  shows  the 

assembly  of  the  previous  subsections  into  a  matrix  relating  the  beam 

element  end  forces  and  its  corresponding  end  displacements  and  rotations 

in  terms  of  local  rectangular  coordinates,  when  the  1  axis  is  along  the 

* 
beam  centroidal  axis,  as  shown  in  Figure  A-20. 


*  For  the  computer  program  the  plus  sign  convention  corresponds  to 
plus  vectors  in  the  plus  coordinate  direction.   For  the  end  i  of 
the  beam  in  Fig.  A-14  along  the  z  axis  this  means  reversing  the  sign 
convention  for  M.  used  in  the  derivation  of  the  theory.   It  is 
unfortunate  that1  the  deflected  structure  makes  a  unified  sien 
convention  between  moment  area  theory  and  computer  analysis 
impractical. 
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11 


*12 


13 


il 


\2 


*13 


*jl 


"j2 


*J3 


*J1 


*J2 


*J3 


L\ 

12EI 


0 
3 


0 
0  0 


0  0 

6EI. 


\ 

12EI„ 


L3\ 


GI 


_1 
L\ 


-6EI, 

0 
4EI„ 


\ 


AEI, 


L\ 

-12EI 
0 


0 
3       « 


0         0 
6EI, 


\ 


-12EI, 


-6EI, 


-GI, 


0  0  0 

6EI 
0         0       —r 
L 

-6EI, 
0         — f-    0 


\ 


2EI„ 


\ 


2EI. 


SYMMETRIC 


V  — -L 

\ 


12EI. 


\ 


12EI, 


\ 


GI, 


0         0 
-6EI, 

0  7 

6EI„ 


0         0 

\ 

4EI„ 


\ 


AEI, 


*il 


'12 


'13 


11 


12 


13 


"jl 


'J2 


'J3 


Jl 


J2 


j3 
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2.5    Inclusion  of  Shear  Deflection  in  Beam  Analysis 

Figure  A-21  shows  a  portion  of  a  beam,  dx  in  length,  subjected  to 
a  shear  stress  T  which  is  assumed  uniformly  distributed  across  the 
section  of  the  beam. 


du 


r 


1  dx  ' 

FIG.   A-21     LOCAL    SHEAR    DISTORTION   OF 
BEAM     ELEMENT. 


Under  these  circumstances  the  shearing  strain  y   is  given  by  the 
relationship: 

du 


Y  - 


dx 


■  tan  y 


(A.54) 


for  small  deformation,  where  du  is  the  shearing  deflection  in  the 
dx  distance.   Also: 


Y 


V_ 
AY 


Vdx 
Adu 


(A. 55) 


In  Figure  A-22,  a  beam  ij  is  distorted  by  shearing  forces  under 
the  same  assumptions  of  Figure  A-14. 


From  Figure  A-21,  and  Equation  (A. 55): 

du   ■ 


Vdx 
AG 


V±dx 


AG 


(A. 56) 
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FIG.   A- 22     REACTIONS    ON   BEAM    SUBJECTED 

TO    SHEARING    FORCES. 


or 


Eldu 
dx 


EIV. 

1 

AG 


(A. 57) 


Integrating 


Elu   = 
s 


EIV.X 

i 

AG 


+  C 


(A. 58) 


When 


X  =  L,   u  =  0 

s 


EIV.L 

x 

AG 


(A. 59) 


Therefore 


Elu 


EIV.X     EIV.L 


AG        AG 


(A. 60) 
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12EI 
If  we  let  <j>  ■  r-  ,  Equation  (A. 60)  becomes: 

AGL 

<J)V  XL2  ij)VL3 

EIus  =  "  -TT-   +   TT-  (A*61) 

Now  the  total  deflection  u  is  the  superposition  of  the  bending 
deflection  u,  of  Figure  A-14  and  the  shearing  deflection  u  of 
Figure  A-22,  or 


u-  ub 

+  u 
s 

When  X  -  0 

0V.L3 

U  "  Ui 

"  X  "  %    '  12EI 

From  Equations 

(A. 39)  and 

(A. 40) 

vi 

■  ■  '    XI 

12EI 

Therefore 

"b 

11       *= 

L3 
V±L3 

(A.62) 


(A. 63) 


(A. 64) 


%  12EI 


(A.65) 


and 


3         3  3 

V  LJ       V  L  V  L 

Ui  *  12EI  +  ♦  12EI  =   (1  +  *)  12EI      (A'66) 

The  bending  stiffness  coefficient  of  Equations  (A. 39)  and  (A. 40) 
is  thus  modified  to  include  the  shearing  deflections,  and  this 
becomes : 


V  V 

i     12EI  _i  ,.    ,7. 

K.    ■  —  ■  r ■ L  (A. 67) 

1V     Ui     (1  +  <j»L3  Ui 
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But 


M±  -  Vi  y  (A.  68) 

So 

im     Ui     (1  +  $)L2  i  j 

Similar  modification  can  be  made  for  the  stiffness  coefficients 
associated  with  the  beam  end  rotations,  and  are  derived  in  reference 
(15) .  When  these  modifications  are  included  in  the  beam  element  matrix 
we  obtain: 
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In  the  assembly  of  the  complete  12  x  12  beam  element  stiffness 
matrix  different  values  of  I  and  A  about  the  two  bending  axes  are 
accounted  for,  where: 


and 


-  24(1  +  v)  I—  (j-V       (A.  71) 
s2 


=  24(1  +  v)  *--  (^)2        (A.72) 
s3 


12EI- 

*2 

3 
GAs2L2 

12EI2 

*3 

a 

GA  _L2 
s3 

When  the  radii  of  gyration  r.  and  r2  are  small  in  comparison  to 
member  length,  the  shear  deflections  can  be  ignored. 

Equation  (A. 70)  is  assembled  in  the  NEWBM   subroutine,  BEAM  288  - 
BEAM  304   and  BEAM  320  -  BEAM  345. 

COPROT         «=  Common  Properties 

MELTYPE       =  Material  Element  Type  or  Geometry  Number 

SHFY  -  L2<j>_/2 


SHFZ  -  L2<}>0/2 


* 
2.6    Transformation  Equations  for  the  Beam  Element 

The  geometric  location  of  a  typical  beam  element  is  defined  by 
joint  number  i  and  j.   The  place  which  locates  the  principal  axis 
of  the  beam  is  defined  by  a  third  joint  number  k  as  shown  in  Figure 
(A-20).   One  way  of  developing  the  transformation  equations  from  local 
to  global  coordinates  is  conveniently  developed  by  the  use  of  vector 
notation.   The  unit  vector  in  the  S..  and  g  directions  is  given  by: 

/\  A.  /\  /\ 

Sl  "  SlxX+  SlyY  +  SlzZ  (A*73) 

g   =  gxX+gyY+gzZ  (A. 74) 


*  Taken  directly  from  SOLID  SAP, 
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where  X,  Y,  and  Z  are  unit  vectors  in  the  X,  Y,  and  Z  directions.  The 
direction-cosines  are 


lx 


DX 
L 


GX 
G 


iy 


DY 

L 


-  7T"    9„   =  7T    9 


GY 
G 


lz 


DZ 
L 

GZ 
G 


(A. 75) 
(A. 76) 


where 


DX  =  x.  -  x. 

DY  =  y.  -y. 

3  i 

DZ  =  z  .  -z . 

D  1 


GX  = 


\   ~   Xi 


GY  =  y.  -  y. 
k    i 

GZ  =  Zv  -  z. 


(A. 77) 


L  =  /   2     2     2G=/2     2     2 

DX  +  DY   +  DZ  GX  +  GY   +  GZ      (A. 78) 


The  unit  vector  in  the  S  direction  is  given  by  the  vector  product 
of  S  and  g  divided  by  the  length  of  vector  in  that  direction. 


S3  = 


S±  *  9 


sx   x  91 


=  S,  X  +  S,  Y  +  S,  Z 
3x     3y     3z 


(A. 79) 


where  the  vector  product  is  by  definition  the  evaluation  of  the 
determinent 


a  x  b 


(A. 80) 


The  unit  vector  in  the  S  direction  is  given  by  the  vector 


product 


S2  *  S3  X  Sl  =  S2xX  +  S2yY  =  S2zZ  (A'81) 
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The  three  unit  vectors  may  be  summarized  by  the  following  matrix 
equations: 


S.   S.    S. 
ix   ly   lz 


S2x  S2y  S2z 


S3x  S3y  S3z 


X 
Y 
Z 


(A. 82) 


Within  the  computer  program,  local  displacements,  forces,  and 
moments  are  transformed  to  the  global  system  by  the  3x3  matrix  of 
Equation  (A. 82). 

In  SSAP2,  Equation  (A. 82)  is  evaluated  by  statements  BEAM  142 
through  BEAM  163   in  subroutine  TEAM.      Since  the  calculation  process  is 
rather  tricky,  these  calculations  will  be  explained  further. 

Let  us  examine  Equation  (A. 79)  in  more  detail. 


S-l  x  g 


lx 
8x 


=  x( 


DY  GZ 


iy 
gy 

DZ  GY 


lz 
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z 

DX 

DY 

DZ 

L 
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L 

GX 
G 

GY 
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GZ 
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(A.83) 


L  G 

,DZ  GX 
+  y(L-G" 

,DX  GY 

+  2(rr 


L   G 

DX  GZ 
L   G 


DY  GX. 
L   G  ; 


The  length  of  vector  | S1  x  g|  is  obtained  as  the  square  root  of 
the  sum  of  components  squared. 


[f-  (DYGZ  -  DZGY)]2  - 
LG  L  G 


(DY2GZ2  -  2DYDZGZGY  +  DZ2GY2) 


[j£   (DZGX  -  DXGZ)]2  -   212   (DZ2GX2  -  2DXDZGXGZ  +  DX2GZ  ) 


[777  (DXGY  -  DYGX)]2 


L  G 
1 


2  2 
L  G 


(DX2GY2  -  2DXDYGXGY  +  DY2GX  ) 


(A. 84) 


A- A  6 


=  |S1  x  g| 


(A. 85) 


Therefore: 


3x 


DYGZ  -  DZGY 
LG  |S1  x  g| 


(A. 86) 


3y 


DZGX  -  DXG2 
LG  \S1   x  g| 


(A. 87) 


3z 


DXGY  -  DYGX 


LG  ^  x  g| 


(A. 88) 


Using  Equations  (A. 75)  and  (A. 81) 


S   =  S  x  S 
2      3     1 


s-j     So     So 
3x    3y    3z 


Sl        ST        Sl 

lx    ly    lz 


(A. 89) 
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DYGZ-DZGY 
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DZGX-DXGZ 
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DXGY-DYGX 

2  r      *i 

L  G|S      x  g| 

DX 

DY 

DZ 

Therefore : 

2x 


2  2 

DZ  GX-DXDZGZ  -  DYDXGY+DY  GX 

L  G|S1   x  g| 


2  2 

(DZ      +   DY    )    GX-DXDZGZ-DYDXGY 

L  g|sx  x  g| 


(A. 90) 
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2y 


2z 


DX2GY-DXDYGX  -  DYDZGZ+DZ2GY 


2      " 
L   G|S 

x  g| 

(DX2  +  DZ2)GY 

-  DXDYGX  -  DYDZGZ 

2      ~ 
L  G|S1 

x  gl 

DY  GZ-DYDZGY  - 

-  DXDZGX+DX2GZ 

2      ~ 
L  G|S1 

x    g| 

(DY2  +  DX2)GZ 

-   DYDZGY   -   DXDZGX 

(A.91) 


L  G|S1  x  g| 


(A. 92) 


Following  the  statements  in  SSAP2 


or 


BEAM 

142 

Al 

= 

DX 

BEAM 

143 

A2 

= 

DY 

BEAM 

144 

A3 
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DZ 

BEAM 

145 

Bl 
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GX 

BEAM 

146 

B2 
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GY 

BEAM 

147 

B3 
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GZ 

BEAM 

148 

AA 
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L2 

BEAM 

149 

AB 

= 

DXGX  +  DYGY  +  DZGZ 

BEAM 

150 

VI 
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L2GX  ■ 

■  ABDX 

BEAM 

151 

U2 
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L2GY  - 

■  ABDY 

BEAM 

152 

U3 
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L2GZ  - 

■  ABDZ 

BEAM 

153 

UU 

= 

ui2  + 

U22  +  U32 

UU  =  L  GX  -  2L  GXABDX  +  AB  DX 
+  L4GY2  -  2L2GYABDY  +  AB2DY2 
+  L  GZ2  -  2L2GZABDZ  +  AB2DZ2 

/  O  O  0     0 

'   L  G  -  2L  AB  AB  +  AB  L 
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4   2  2 — 2 


2      2   2       — 2 
IT[lV   -  AB^]  (A.  93) 


But: 


2  2       — 2 
L  G     -  AB 


-  (DX2  +  DY2  +  DZ2)(GX2  +  GY2  +  GZ2) 

-  (DXGX  +  DYGY  +  DZGZ) (DXGX  +  DYGY  +  DZGZ) 


_.2^    .    _2„„2 


DX  GX     +  DY  GYT  +  DZ   GX     + 


.2     2  2     2  2     2 

DX^GY     +  DY  GY  +  DZ   GY     + 

2      2  2      2  2     2 

I  DX  GZ     +  DY  GZ  +  DZ  GZ 


DXGXDXGX  +  DYGYDXGX  +  DZGZDXGX  + 
DXGXDYGY  +  DYGYDYGY  +  DZGZDYGY  + 
DXGXDZGZ  +  DYGYDZGZ  +  DZGZDZGZ 


DY2GZ2  -  2DYDZGZGY  +  DZ2GY2  H 
DZ2GZ2  -  2DXDZGXGZ  +  DX2GZ2  H 
J)X  GY2  -   2DXDYGXGY  +  DY2GX2 


J 


(A. 94) 


By  comparison  with  Equation  (A. 85): 


UU  «  L  G  \S1   x  g| 


(A.95) 


BEAM  154  UU  =  L  G\S     x  g\ 


BEAM  158 


Tfo    7.  _  yi     -     I*  GX-  ABDX 


L G\S2  x  g\ 


or 


DX2GX  +  DY2GX  +  DZ2GX  -  DX2GX  -  DXDYGY  -  DXDZGZ 

l2g|s1  x  g| 

(DY2  +  DZ2)GX  -  DXDZGZ   -  DXDYGY 

s         (  A  A — 


L  G|S1  x  g| 
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which  is  identical  to  Equation  (A. 90). 

Similarily: 

TIP 
BEAM  159  T(292)  =  — 


L2GY  -  ABDY 
L2G\S1  x  G\ 


is  identical  to  Equation    (A. 91)    and: 


BEAM  160 


wfc,    ,,   _  US     _    L2GZ  -  ABGZ 
UU  L2G\S1  x  G\ 


is  identical  to  Equation  (A. 92) . 

Equation  (A. 81)  is  then  used  to  evaluate  S  ,  which  can  be 
rewritten  as: 


But 


S„  =  S,  X  S„ 
3     12 


BEAM  136 
BEAM  137 
BEAM  138 


T(lsl)  m  S 
T(l,2)  =  S 
T(l,3)   m  S 


lx 


iy 


lz 


Therefore: 


S„  = 


BEAM  161 
BEAM  162 
BEAM  163 


T(l,l) 
T(2,l) 


T(l,2) 
T(2,2) 


T(l,3) 
T(2,3) 
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T(3,l)  =  T(lj2)  T(2,3)  -  T(l,3)  T(2,2) 
T(3,2)  =  T(l,3)  T(2tl)  -  T(131)  T(2,3) 
T(333)   m  T(ltl)   T(2S2)   -  T(l,2)   T(2tl) 
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Equation  (A. 82)  becomes: 


T(l,l)  T(l,2) 
T(2,l)  T(2,2) 
T(3,l)     T(3,2) 


[■a"1 

T<1,3) 

X 

T(2,3) 

y 

T(3,3) 

Z 
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2.7    Global  to  Local  Coordinate  Transformation  in  Three  Dimensions 

The  matrix  equation  relating  local  displacements  u' to  global 
displacement  u  can  be  derived  by  resolving  element  displacement  vectors 
from  the  global  set  of  coordinates  into  the  local  coordinate  system  , 

as  was  shown  for  the  two  dimentional  case.   For  more  details,  see 
reference  (15),  page  81. 
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C.  Stiffness  of  Plate  and  Shell  Elements 
(Quadrilateral ) 

3.1    Introduction 

The  SSAP2  computer  program  utilizes  three  different  triangular 
elements  for  constructing  plate  and  shell  quadrilaterals.  Two  of  these 
elements  (Constant  Strain  Triangle  -  CST)  and  (Linear  Strain  Triangle  - 
LST)  are  used  to  describe  the  inplane  or  membrane  stresses,  while  a 
third  element  (Linearly  Varying  Curvature  Triangle  -  LCCT)  is  used  to 
describe  the  flexural  stresses.  The  total  stress  in  the  quadrilateral 
is  considered  to  be  a  superposition  of  the  membrane  and  flexural  stresses 
without  interaction.   In  this  report  the  stiffness  matrix  is  described  for 
each  of  the  above  triangles;  however,  the  correlation  between  theory  and 
program  statements  will  be  limited  to  the  flat  plate  element  of  constant 


thickness,  which  was  used  in  the  bridge  research.   These  derivations 
follow  that  of  Fellipa's  dissertation     -  further  extensions  of  the 
theory  for  variable  thickness  plates  is  contained  in  his  dissertation. 


3.2  The  Quadrilateral  Element 

The  thin  plate  and  shell  element  included  in  this  report  is  a 
quadrilateral  of  arbitrary  geometry  formed  from  four  compatible  triangles 
(Figure  A-23).   These  triangles  are  known  as  refined  triangles  since 
additional  nodes  are  included  at  the  midpoints  of  their  sides.   One  ex- 
ternal midside  node  has  been  eliminated  from  each  of  the  triangles  for 
programming  purposes  to  be  described  later.  We  first  concern  ourselves 
with  the  development  of  the  stiffness  matrix  for  the  individual  triangular 
elements  in  the  quadrilateral. 

3.3  Area  Coordinate  System 

The  geometry  and  evaluation  of  stiffness  matrices  of  arbitrary 
triangular  elements  can  be  expressed  by  rectangular  cartesian  coordinates. 
However,  a  more  elegant  formulation  of  the  stiffness  and  geometry  by  means 
of  natural  or  area  coordinates  is  often  used  in  the  literature; 
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FIG.A-23   QUADRILATERAL  COMPOSED   FROM 

FOUR  COMPATIBLE   REFINED  TRIANGLES. 


with  one  advantage  in  that  the  natural  coordinates  are  invariant  with 
respect  to  the  shape  and  orientation  of  the  triangle,  and  that  all  inte- 
gration formulas  become  remarkably  simple.   The  natural  coordinate  system 
is  used  in  SSAP2.   In  the  natural  coordinate  system  the  specification  of 
a  point  within  the  triangular  element  is  done  with  a  set  of  dimensionless 
numbers  whose  magnitude  never  exceeds  unity. 

3.4    Geometry  of  Triangular  Element 

Consider  the  triangular  element  of  Figure  A-24a.  Let  j  and  k  denote 
the  first  and  second  cyclic  permutations  of  i  ■  1,2,3  (i.e.,  j  ■  2,3,1 
and  k  -  3,1,2);  then  the  projected  dimensions  on  the  xy  plane  may  be 
expressed  as: 
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♦  +  Y 


(a) 


(b) 


FIG.  A-24    PROJECTED    AND    INTRINSIC    DIMENSIONS 
OF    ARBITRARY    TRIANGLE. 


or: 


a.  = 


\ 


x. 


x„  -  x. 


a„  =  x,  -  x. 


a„  =  x„  -  x. 


b.  =  y.  -  y. 
x    3    k 


bl  =  y2  "  y3 
b2  -  y3  -  yx 

b3  =  y  -  y2 


(A. 98) 


Also  some  intrinsic  dimensions  as  defined  in  Figure  A-24b  may  be 
expressed  in  terms  of  these  projected  dimensions. 

,2      2   .2 

1,   =  a.  +  b. 
l      11 

H.   =   2A 

i      1. 

l 

where  A  is  the  area  of  the  triangle, 


A-54 


di   -   -  Tl  ia±\  +  bibk> 


ai\  +  bibk 


2   u.   v    2 

a.     +  b. 
i  1 


=     1  -  A 


aiai  *  blbj 

2    u.    V2 

ai  +bi 


(A. 99) 


3.5   Natural  Triangular  Coordinates 

The  triangular  coordinates  f^,  £2,  £.  of  any  point  P  in  the  triangle 
may  be  defined  either  as  the  ratios  of  the  areas  A  of  the  subtriangles 
subtended  by  that  point  to  the  total  area  of  the  triangle,  or  as  the 
ratios  of  the  normal  distances  n.  to  the  heights  H  ,  i.e., 


h  "  r 


H, 


(A. 100) 


as  shown  in  Figure  A-25,  At  any  point  £  +  £2  +  £0 


FIG.  A-25   HEIGHTS  OF  MAIN   AND   SUBAREAS 
OF  TRIANGLE. 
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The  relationships  between  cartesian  and  triangular  coordinates 
may  be  expressed  as: 


or  by  inversion: 


in  which  2A. . 
ID 
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2A 


x.y.  -  x.y. 
i  D    D  i 


'1 

h 

X3 

?2 

y3 

53 

2A23  bl 
2A31  b2 
2A12    b3 


1    I1 

2 

3     Y 


(A. 101) 


(A. 102) 


3.6  Variation  of  Natural  Triangular  Coordinates 

Figure  A-26  shows  the  variation  of  £  ,  £  ,   and  £  over  the  area  of 
the  triangle.  At  any  point  P  the  value  of  £  ,  £  ,  and  E,     is  merely  the 
height  of  the  corresponding  sloping  plane  above  the  triangular  base. 
Within  a  triangular  element  the  displacements  may  be  considered  to  vary 
in  a  similar  way  to  the  £ ' s  for  a  unit  coordinate  displacement  at  one 
node  with  the  other  two  nodes  restrained.   For  example,  Figure  A-26d 
shows  a  displacement  pattern  for  u  =1,  which  is  similar  to  the  varia- 
tion of  £  . 

3.7  Triangular  Subelements 

For  compatibility  requirements  it  is  necessary  to  further  subdivide 
the  triangle  into  three  subelements  as  shown  in  Figure  A-27,  in  which 
the  internal  point  "0"  is  the  centroid  of  the  element  area,  and  the  sub- 
triangles  are  numbered  to  correspond  with  the  opposite  corner  number. 
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(C) 


(d) 


la) 
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FIG.    A-26    LINEAR    VARIATIONS    OF   c,  ,  c2  ,  AND 
^3  OVER      TRIANGLE     AREA. 

The  geometric  relationships  discussed  above  apply  to  each  of  the 
subtriangles  if  its  three  corners  are  renumbered  1-2-3,  with  3 
being  taken  as  the  internal  point.   The  sub triangle  is  then  identified 
in  the  forthcoming  expressions  by  means  of  a  superscript.  The  re- 
numbering scheme  is  shown  in  Figure  A-27b  for  subelement  (1) .   For 

example,  6  „  would  be  the  rotation  about  the  x  axis  for  node  2  of 
x2 

subelement  (1)  . 
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0X3 


(a)  "»  (b) 

FIG.  A-27    RENUMBERING  SCHEME   FOR  TRIANGLE 
SUBELEMENTS. 


The  area  of  the  subelement  is  given  by: 


y  +  y^         y  +  yA 

— !■)  <x  -  x)  +  (  2  1)  (x  -  x±) 


-  ( 


y1  +  y± 


)  (Xj  -  x±) 


(A. 103) 


where  the  coordinates  of  point  "0"  (Figure  A-27 (a))  located  in  any 
position  within  the  triangle  1-2-3  are  given  by  x  and  y,  or  in 
dimensionless  form: 


Kk     "     2A  [(y  +  yj)(xj  "  X)  +  (y  +  yi)(x  "  V 


-  (y,  +  y±^^xA   "  xpl 


(A.104) 


The  derivatives  with  respect  to  the  cartesian  coordinates  are 
in  general: 


^    ^  "  y1 


3x 


2A 


and 


8CJc  m   fj.  "  Xi 


9y 


2A 


(A. 105) 
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These  evaluated  for  the  three  subelement  corner  coordinates  are: 

3x         2A  3y  2A 

3?2       b2  9^2        a2 

3x~  "  2A  37"  =  2A 

5imh.  5l-.ll 

3x         2A  3y  2A  (A. 106) 

where  the  a's  and  b's  are  the  corresponding  projected  dimensions 
of  the  subelement. 


3.8    Linear  Displacement  or  Constant  Strain  Field  for  Triangular  Element 

Any  linear  displacement  function  u(x,y)  over  the  triangular 
element  with  final  nodal  displacements  u1 ,  u?,  u.  is  a  linear 

combination  of  f  1(^1,  £2»  £3) ,  f2^l*  ^2*   ^3*'   and  f3^1*  ^2*   V 
with  scalar  coefficients  u. ,  u„ ,  u  ,  or 

uC^,  C2.  ?3)  "  fi^i»  ^2*   VU1  +  f2^1*  ^2*   VU2 

+  f3av   £2,   £3)u3  (A.107) 

Similarly: 


vC^,  C2,  C3)  -  *!<£]_»  ^2»  ^3)vl  +  f2(^l'  ^2*   ^3)v2 

+  f3(£r  %v   C3)v3  (A. 108) 

For  linear  interpolation  these  functions  are  identical  to  the 
natural  functions  for  the  element;  that  is: 


6i  =  fi(5l'  C2'  K3)   c  ^i  i  =  1»2»3        (A.109) 
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The  constant  strain  triangle  has  6  of  freedom  for  membrane 
action.   In  a  linear  displacement  field  we  have  constant  strain;  and 
the  strains  are  given  by: 


e    (C) 

X       1 

= 

3u(£.) 

= 

6     u 

X 

3x 

3v(? ,) 

VV 

= 

1 

= 

<b     v 

y 

ay 

vv 

s 

3v(Ci) 

+ 

Bu^) 

ax 

3y 

4>  u  +  *v  v   (A-110) 
y     x 


where : 


u  = 


'<] 


u. 


V  = 


By  use  of  the  chain  rule  we  may  write: 


BuC^) 


3x 


9u 


sc-l  ax   a^2  ax   ac3  ax 


_1  3u_ 

2a  ac, 


_2  3u_ 

2A  ac, 


__3  3u 
2A  3£. 


av(?±) 
1y 


*1  3v  •  *2  3v    *3  3v 
2A  3£    2A  8C2    2A  3£3 


3u(Ci) 

"ly 


fl  3u   *2  3u    *3  3u 
2A  3£    2A  3£     2A  3C3 


av(^i> 


^i.  iY.  +  ^2  3v    ^3  3v 
2A  3^   2A  3£    2A  3? 


(A-lll) 
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Since  the  strains  are  constant,  we  may  select  any  convenient  point 

to  evaluate  the  derivatives  rr  ,  —  •   Choosing  the  nodal  points  of  the 

at,        dt, 

triangle  and  noting  that  the  variation   <\>  is   identical   to  the  variation 

3<fr. 
K,   and  that  -rr-  =  1   in  Equation    (A. 109)    ,    the  strains   can  be  written  from 

Hi 
Equation     (A. 110)    as: 


xy 


1_ 

2A 


bl       b2       b3 


a,        a_        a„ 
12  3 


a  a  a         b  b  b 

1  2  3  12  3 


=  Br 


_  _|      (A-112) 


where  B  is  known  as   the   strain-nodal  displacement  matrix. 

3.9   Stress  Strain  Relations 

For  a  linear  elastic  material  the  two-dimensional  stress  strain 
relations  may  be  written  as  follows: 


xy 


c  c  c 

Cll     12    ^13 


C21   C22   C23 


c    c    c 

31     32     33 


xy 


(A-113) 


or: 


o(C±)  =  CIZL)   e  (Ci) 


(A-114) 


where  C  is  symmetric,  and  contains  the  elements  of  the  plane  stress 
material  matrix  read  into  the  program  from  data  input.  For  isotropic 

materials 


1-v 


1    v 
v    1 


x  =  k^L  (A-115) 
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3.10   Stiffness  Matrix  -  Constant  Strain  Triangle 

The  element  stiffness  represents  the  nodal  forces  in  the  element 
resulting  from  unit  nodal  displacements.   It  can  be  arrived  at  from 
strain  energy  considerations. 

The  total  strain  energy  stored  in  an  element  of  constant  thickness 
h  is: 


1  I   T- 


dv 


T  ( 


B  C  B  dv  r 


(A-116) 


where  the  stiffness  matrix  by  definition  is  the  quantity  under  the 

integral  sign.   Since  matrices  B  and  C  are  not  functions  of  the  (x,y) 

~T 

coordinates,  the  matrix  product  B  C  B  may  be  taken  outside  the  integral 

sign  and  we  have: 


K  =  A  h  BT  C  B 


(A-117) 


where  h  is"the  element  thickness.   Substituting  Equations  (A-112)  and 
(A-113)  we  have: 


K   = 


4A 


Cll   C12 


'13 


C22   C23 


symm. 


'33 


a    a    a 
1    2    3 


b    b    b 
1    2    3 


(A. 118) 


After  carrying  out  the  indicated  matrix  manipulation  we  arrive  at 
a  stiffness  matrix  which  can  be  identified  in  terms  of  the  SSAP2  pro- 
gram statements;  i.e.: 
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3.11   Computer  Generation  of  Constant  Strain  Triangle  Stiffness 

The  SSAP2  program  generates  the  CST  stiffness  in  three  steps: 

a.  A  call  to  subroutine  QDCOS   where  the  local  cartesian  coordinate 
system  (x,y,z)  of  a  quadrilateral  or  triangle  is  defined  with 
respect  to  the  global  cartesian  coordinate  system  (X,  Y,  Z). 

b.  A  call  to  subroutine  TDCOS  where  the  projected  dimensions  of 
a  triangle  subelement  are  computed  with  respect  to  the  local 
coordinate  system  x  -  y  -  z  in  the  plane  of  the  subelement. 

c.  A  call  to  SLST  which  forms  the  plane  stress  stiffness  matrix 
for  the  CST  triangle. 


3.12 


A  triangle  plate-shell  element  of  arbitrary  slope  and  orientation 
in  space  is  shown  in  Figure  A-28a.   The  element  location  is  specified 
by  global  coordinates 


X. 

1 


X 
Y 
Z 


i  -  1,2,3 


(A. 120) 


of  the  three  corners  1,  2,  and  3. 

In  addition  to  the  global  coordinate  system,  a  local  rectangular 
coordinate  system  (x,y,z)  is  specified  with  the  x  and  y  axes  located 
in  the  plane  of  the  element,  while  the  z  axis  is  perpendicular  to  the 
plane  of  the  element.   Positive  direction  of  the  z  axis  is  taken  to 
coincide  with  the  positive  direction  of  the  rotating  vector  correspond- 
ing to  the  sequence  1,  2,  3. 

Within  subroutine  QDCOS   the  z-axis  is  determined  by  cross  multiply- 
ing vectors  1-3  and  3-2.   The  x-axis  is  determined  for  the  triangle  by 
completing  a  parallelogram  using  the  addition  of  vectors  1-3  and  1-2, 
after  which  the  vector  1-g  is  determined  as  its  diagonal. 


*  If  quadrilaterial  element  is  not  plane,  an  "average  element 
plane  defined  by  the  four  external  midside  points  is  assumed. 
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(a) 


(b) 


FIG     A-28     GLOBAL     AND     LOCAL    AXES     FOR 
TRIANGLE     AND     QUADRILATERAL. 

g   therefore  becomes  located  at  the  midpoint  of  the  line  2-3.   Now  the 
y  axis  can  be  established  by  cross-multiplying  axes  x  and  z. 

For  the  quadrilateral,  Figure  A-28b,  a  similar  computation  locates 
x  as  along  the  line  joining  the  midpoints  of  sides  1-4  and  3-2.   Points 

h  and  g  are  on  this  line  as  shown.   Once  again  the  z  axis  is  taken  as 

perpendicular  to  the  plane  of  the  plate; and  the  y  axis  is  then  located 

by  cross  multiplying  x  and  z.   Finally  subroutine  QDCOS     calculates  the 

direction  cosines  of  x,  y,  and  z  with  respect  to  the  X,  Y  and  Z  axes. 
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3.13   Subroutine  TDCOS 


3.14 


In  subroutine  TDCOS   the  projected  dimensions  of  the  triangular 
element  as  defined  by  Figure  A-24  are  established  in  the  plane  of 
the  element  with  the  direction  of  x  and  y  as  previously  established 
in  QDCOS.      Thus  the  projected  lengths  are  in  the  local  planar  axes 
of  the  element.   These  projected  lengths  become  the  a's  and  b's  of 
Equation  (A. 112). 
Subroutine  SLST 

Subroutine  SLST   actually  does  the  filling  in  of  the  appropriate 
terms  of  Equation  (A. 119)  for  the  Constant  Strain  Triangle.  Note  that 
Equation  (A. 119)  as  given  defines  the  nodal  displacement  vectors  in 
the  order: 


rT  =  [  u-i,  u7,  u,,  v-,,  v9>  v,  ] 


(A-121) 


For  the  sake  of  printing  out  all  component  information  of  each 
node  in  sequence,  the  order  of  r1  is  changed  to: 

rT  =  [  u-p  vp  u2,  v2,  u3,  v3  ]  (A-122) 

This  is  accomplished  by  an  interchange  of  columns  and  rows  in 
Equation  (A. 119).   For  example,  if  we  label  the  locations  in  the 
matrix  K  of  Equation  (A. 119)  by  its  a±.  value,  we  would  have  the 
following  sequence: 


K  = 


12      3      4  5  6 

1  1,1  1,2  1,3  1,4  1,5  1,6 

2  2,1  2,2  2,3  2,4  2,5  2,6 

3  3,1  3,2  3,3  3,4  3,5  3,6 

4  4,1  4,2  4,3  4,4  4,5  4,6 

5  5,1  5,2  5,3  5,4  5,5  5,6 

6  6,1  6,2  6,3  6,4  6,5  6,6 


(A-123) 


If  the  columns  and  rows  are  interchanged  we  get  the  following 
order  of  terms: 
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K  = 


1 

3 

5 

2 

4 

6 

1 

1,1 

1,3 

1,5 

1,2 

1,4 

1,6 

3 

3,1 

3,3 

3,5 

3,2 

3,4 

3,6 

5 

5,1 

5,3 

5,5 

5,2 

5,4 

5,6 

2 

2,1 

2,3 

2,5 

2,2 

2,4 

2,6 

4 

4,1 

4,3 

A, 5 

4,2 

4,4 

4,6 

6 

6,1 

6,3 

6,5 

6,2 

6,4 

6,6 
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In  SLST   the  stiffness  matrix  is  packed  in  the  upper  triangular  form 
by  the  sequence  A,B,C,D,E,F  as  shown: 


A 

A 

B 

B 

D 

D 

A 

A 

B 

B 

D 

D 

C 

C 

E 

E 

C 

C 

E 

E 

Symmetric 

F 
F 

F 
F 

As  calculated  by  the  program  statements  SEEL     1134   thru  SEEL     1137   the 

SLST   routine  automatically  transfers  the  equations  to  the  correct  matrix 
location  as  established  by  Equation  (A. 124).   To  check  this  out  the  reader 
should  calculate  the  terms : 

ST(K-1,L-1)     ST(K  ,L  )    ST(K-1,L  )   ST(K  ,L-1) 

For  example  for  J=l,  L=2,  1=1,  K=2  one  would  get: 

ST  (1,1)  =  Cijb]bi  +   C33a1a1  +  C-^Ca-jb-L  +  b^) 

which  fits  term  1,1  of  Equation  (A. 119). 

ST(2,2)  =  C^a-ja-L  +  C^b^  +  C^Ca^  +  b^) 

which  fits  term  4,4  of  Equation  (A.  119)', 
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ST(1,2)  =  C12blal  +  c33albl  +  c13blbl  +  c23alal 
\vtiich  fits  term  1,4  of  Equation  (A. 119). 

ST(2,1)  =  C12albl  +  c33blal  +  c13blbl  +  c23alal 
which  fits  term  4,1  of  Equation  (A. 119) . 

The  transformation  of  terms  thus  can  be  stated: 

1.  Calculate  ST (number,  number) 

2.  Read  the  appropriate  row  and  column  of  Equation  (A. 124) 

represented  by  the  numbers .   The  corresponding  location 
in  Equation  (A. 124)  represents  the  matrix  location 

for  Equation  (A. 119)  which  will  match  the  values  calculated 

by  ST. 

3.15  Stiffness  Matrix  -  Linear  Strain  Triangle. 

The  original  formulation  cited  in  reference  (16),  based  on  Dr.  Felippa's 
dissertation,  does  not  quite  match  the  SLST   program  statements  of  SSAP2,  but 
probably  doeg  match  another  program  written  by  Dr.  Felippa  in  the  Appendix  to 

reference  (16) .  The  SLST  statements  follow  another  version  of  the  LST  Triangle 
prepared  by  Dr.  Felippa  two  years  later.  The  reformulation,  as  received  by  the 
author,  is  given  in  Appendix  G.   Essentially  for  the  LST  Triangle  the  stiffness 

can  be  written  in  the  following  form: 
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Equation  (A. 126)  is  the  result  of  carrying  out  the  indicated 
matrix  manipulations  specified  by  Equation  (A. 125) . 

Equation  (A. 127)  is  analogous  to  Equation  (A. 123). 

Equation  (A. 128)  is  analogous  to  Equation  (A. 124). 

The  matching  of  SSAP2  statements  SHEL  1183   thru  SHEL  1186   to 
theory  is  accomplished  by  the  same  procedure  as  outlined  for  the  CST 
triangle. 

For  example  for  J=3,  JM=6,  1=1,  K=2  one  would  get: 

ST(1,7)    =   16[c11(b1b2  +  b]^)    =  033(3-^2  +  axa3) 
+  Ci3(ait>2  +  al^3  +  ^>±a2  +  bi^o)] 

which  fits  term  1,4  of  Equation  (A. 126) . 

STX2.8)  =  16[c22(aia2  +  axa3)  +  C33(b1b2  +  ^3) 
+   C23(a^b2  +  a1^3  +  ^\a2  +   ^la3^ 

which  fits  term  7,10  of  Equation  (A. 126) 

ST(1,8)  =  16[c12(b1a2  +  b^)  +   c^a^  +  a^3) 
+   c^3(b^b2  +  b]^)  +  C23(a^a2  +  aia3)  ] 

which  fits  term  1,10  of  Equation  (A. 126). 

ST(2,T)  =  16tc12(aib2  +  alV  +  C33(bia2  +  bia3} 
+  ci  3(^-^2  +  b-.bg)  +  C23(a,a2  +  a-,aO] 

which  fits  term  7,4  of  Equation  (A. 126). 
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10,1 
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10,3 
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10,5 

10,6  : 

L0,7  . 

L0,8  : 

L0.9  : 

L0.10 

10,11 

10,12 

11 

11,1 

11,2 

11,3 

11,4 

11,5 

n.fi  : 

LI, 7  . 

LI, 8  : 

Li, 9  : 

LI, 10 

11,11 

11,12 

12 

12,1 

12,2 

12,3 

12,4 

12,5 

12,6  : 

L2.7 

L2,8  . 

L2.9  : 

L2.10 

12,11 

12,12 
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3.16  Stiffness  Matrix  -  LCCT  Triangle. 

Appendix  F  contains  the  derivation  of  the  stiffness  matrix 
for  the  general  quadrilateral  plate  bending  element  composed  of 
four  partially  constrained  linear  curvature  compatible  triangles. 
Also  described  is  a  shear  distortion  mechanism  which  may  be 
incorporated  into  the  element  without  changing  its  basic  structure, 

Equation  (F-22)  contains  the  bending  stiffness  without 

amplification  for  shear  distortion.  The  terms  T  are  obtained 

n 

by  double  differentiating  Equation  (F-13) ,  and  calculating  the 
values  at  the  nodes  of  the  subelement  triangles.   These  values 
then  match  SSAP2  statements  SEEL   1364  thru  SEEL   1391.  The 
identification  of  these  statements  will  be  described  in  some 
detail. 

As  for  Equation  (A. Ill)  the  chain  rule  is  used  to  express 
the  first  derivatives  of  a  (J)  function,  <f)  =  F(Ci  ,£2,^3)  ,  as 
follows : 

9<t>       9<J>     9C2        9<j>     9C2       9<J>     9£3 
+ + 


9x       9d    9x         9£2  ^x         ^£3   ^x 


9<j)       9<J)     3d       9<J>     9^2       9<t>     9£3 

9y  ""  3d  9y        Kz  9y        9£3  9y  (A. 129) 


Again  differentiating  each  of  the  above  products  gives  the 
second  derivatives ,  such  as 

92<f>       9       3<f>  9£.    r  92c|)       9C,  92(()  H2         924>       K,         3*     3% 

— 5-  =  —  ( — )  =     — L  [ — -  +  — -  +  — -1  + 5- 

9x2       9x  v9x  9x       SC^d    3x         9C19?2  9x         BC^Cg   9x  9*^   9x2 

9C2       92cJ)       85  92(|)  3C2         92<f>       9?3         9<f>     92C2 

+  [ +  +  ]  + 

9x       9?29^1    9x         9C29C2  9x         H2^K3   9x  9C2   9x2 


9C3       92<j>       H1         92(|)       9C2         92c()       9C3         9<J>     32C 

[ +  +  If — ]    +  7 T~2 

9x   9C39?i  9x    9£39£2  9x    9?39?3  3x     9?3  9x 


(A. 130) 
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where  the  last  term  of  each  line  becomes  zero  since  the  displacement 
function  is  linear. 

Substituting  Equation  (A. 106)  into  Equation  (A. 130),  we  obtain: 


32(f)         h1        82(f)  32cf>  32<j> 

=  —  [ b,      +     b,     +     bj 


'3 


3xz         kA2  3^3^  3C13C2  8^35, 


b2        32cf>  32(|)  32cf) 

+  ■ — ,  [ bj  +     b2  +     b3] 

)+A2   3C  3?  3C  3C  3£  3? 

2        1  2        2  2        3 

b3        32(f)  32cj)  32cJ) 

+  — 2[ b,  +     b2  +     b3] 

^A2   3?  3C /  3?33C2  9?3^3 


(A. 131) 

82d) 
To  obtain  — j-   all  b's  in  Equation  (A.  131)  are  replaced  by  a's. 

3y         82, 

To  obtain  the  mixed  derivative  —  all  b's  within  the  brackets  of 

3x3y 

Equation  (A. 131)  only  are  replaced  by  a's. 

To  match  the  computer  statements  each  of  the  compatible  displacement 

functions  (page  F-15)  are  differentiated  twice,  and  substituted  in 
Equation  (A. 131)  in  accordance  with  the  schedule  given  in  Table  A-2. 

When  1=1  {SEEL   1294),  the  calculations  are  for  subelement  3. 

When  1=2  {SEEL   1294),  the  calculations  are  for  subelement  1. 

When  1=3  (SEEL   1294),  the  calculations  are  for  subelement  2. 
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TABLE  A-2   IDENTIFICATION  OF  COMPATIBLE  DISPLACEMENT  FUNCTION 
SECOND  DERIVATIVES  FOR  SUBELEMENT  3. 


Statement 
Number 


SEEL   1364 


SHEL   1365 


SEEL   1366 


SHEL   1367 


SEEL   1368 


SHEL   1369 


SHEL   1370 


SEEL   1371 


SEEL   1372 


SEEL   1373 


S#£Z,  1374 


SEEL   1375 


o 
ii 


>>j* 


o 
II 

CM 


KS 


N  =  1 


2,    (3) 


9Z$ 


p(l,l)  = 


P(l,2)  = 


P(l,3)  = 


P(l,4)  = 


P(l,5)  = 


P(l,6)  = 


P(l,7)  = 


P(l,8)  = 


P(l,9)  = 


P(l,10)  = 


P(1,1D  = 


P(l,12)  = 


031 


3x' 


92$ 


(3) 

9x1 


9x2 
92$ 


2,  (3) 


6yi 


9x' 


92$ 


(3) 


0)2 


3x' 


92$ 


(3) 
0X2 


9xz 


6y2 


2*  (3) 


9"$ 


(1)3 


9x2 
92$ 


>  (3) 


0X3 


9x2 
92$ 


2*  (3) 


6y3 


9x2 
92$ 


2,  (3) 


05 


9xz 

06 


9x2 
92$ 


2*  (3) 


0- 


9x' 


N  =  2 


=  9Z$ 


:..  (3) 


P(8,l)  = 


P(8,2)  = 


P(8,3)  = 


P(8,4)  = 


P(8,5)  = 


P(8,6)  = 


P(8,7)  = 


P(8,8)  = 


P(8,9)  = 


P(8,10)  = 


P(8,H)  = 


P(8,12)  = 


o)i 


3y' 

92$ 


(3) 

0xi 


3y2 

92$ 


,  (3) 


0yi 


9y' 
92$ 


(3) 


0)2 


3y< 

92$ 


(3) 
0X2 


3y2 

92$ 


,,  (3) 


0y2 


3y2 


2.  (3) 


N  =  3 


9Z$ 


0)3 


3y2 

92$  (3) 

0X3 


9y2 

92<£ 


2*  C3) 


0ys 


9y2 
»««  (3) 

9  ^05 


2,  (3) 


3Z$, 


3y' 

32$ 


(3) 

06 


9y 

92$ 


2*  C3) 


0u 


9y' 


P(13,l)  = 


P(13,2)  = 


P(13,3)  = 


P(13,4)  = 


P(13,5)  = 


P(13,6)  = 


P(13,7)  = 


P(13,8)  = 


P(13,9)  = 


P(13,10)  = 


P(13,ll)  = 


P(13,12)  = 


0)1 


3x3y 

2,   <3> 

32^ 


0xi 


9x9y 
92$ 


.  (3) 


0yi 


9x9y 


92$ 


(3) 


0)2 


9x9y 


92$ 


(3) 
0X2 


9x9y 
92$ 


2,  (3) 


0y2 


9x9y 

2*  C3) 


9Z$ 


0)3 


3x3y 
32$ 


,  (3) 


0X3 


3x3y 
32$ 


2*  (3) 


0y3 


9x9y 
92$ 


2,  (3) 


05 


9x9y 
92$ 


,  (3) 


06 


9x9y 
92$ 


2*  C3) 


0n 


9x9y 
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Statement 
Number 

N 

=  1 

N 

=  2 

N 

=  3 

SEEL   1376 

SEEL   1377 

SEEL   1378 

SEEL   1379 
STIFT,    1  380 

o 
n 

CO 

iH 
II 
CM 

O 
II 

P(4,l) 
P(4,2) 
P(4,3) 

P(4,4) 
P(4,5) 
P(4,6) 

P(4,7) 
P(4,8) 

P(4,9) 
P(4,10) 
P(4,H) 
P(4,12) 

32$(3) 

0)1 

P(11,D 

P(ll,2) 

P(H,3) 

P(H,4) 
P(ll,5) 

P(ll,6) 

P(ll,7) 

P(ll,8) 

P(ll,9) 
P(ll,10) 
P(11,H) 
P(H,12) 

32$  (3) 

0)1 

P(16,l) 

P(16,2) 

P(16,3) 

P(16,4) 
P(16,5) 

P(16,6) 

P(16,7) 
P(16,8) 

P(16,9) 
P(16,10) 
P(16,1D 
P(16,12) 

32$  (3) 

0)1 

3x2 
»>«  (3) 

ay2 

*2*  (3) 

9$9xi 

3x3y 
32$  (3) 

0X1 

3x2 

32$  <8> 

6yi 

3x2 
3*$  <8> 

0)2 

9y2 

32<f>  <9> 

6yi 

ay2 
32$  (3) 

0)2 

3x3y 

32$  (3) 
0yi 

3x3y 

0)2 

3x2 

T0X2 

3x2 

32$  (3) 
v6y2 

3y2 

0X2 

3x3y 
32$fl(3) 

0X2 

5BEZ  1381 

S#£L  1382 
S#tfL  1383 

3y2 
2,  (3) 

9y2 
32$  (3) 

0)3 

3x3y 

2,  (3) 
9  $Q 

y0y2 

3x2 
32$  (3) 

0)3 

9x3y 
32$  (" 

0)3 

3x2 

32$(3) 
9x3 

9y2 
32$  (3) 

0X3 

3x3y 
32$  (3) 

0X3 

S5£L  1384 
SEEL   1385 

3x2 

32$(3) 

Qy3 

3x2 
32*  (3) 

9y2 

v0y3 

9y2 

a**  (3) 

.  3  $05 

3x3y 
32$B(3) 

=   Qy3 

3x3y 
***   (3) 

S##L  1386 

3x2 

9y2 

3x3y 

.  <3) 

SHEL   1 387 

3x2 
92^  3 

9y2 

o^   3 
y0t 

3x3y 
92$o  3 

3x2 

3y2 

9x3y 

Table  A-12  Continued. 
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Statement 
Number 


SEEL   1388 


SEEL 

1389 

«-t  |  CO 

II 
CM 

SEEL 

1390 

«H  |  CO 

II 
c-l 

SEEL 

1391 

•1  I  CO 


N  =  1 


P(19,l)  = 


P(19,8)  = 


P(19,9)  = 


P(19,12)  = 


92$  , 


(a) 


9xz 
32$fl(3) 

T0X3 


9x2 

92$ 


.  (3) 


9y3 


9x2 
92$ 


2*  (3) 


9- 


9x' 


N 


P(20,l)  = 


P(20,8)  = 


P(20,9)  = 


P(20,12)  = 


92$, 


(3) 


0)1 


3y 

92$ 


.  (3) 


0X3 


9y2 

92$ 


>  (3) 


6y3 


3y2 

92$  (3) 

9* 


3y' 


N  =  3 


P(21,l)  = 


P(21,8)  = 


P(21,9)  = 


P(21,12)  = 


Y0)l 


(3) 


9x9y 
92$ 


>  (3) 


0X3 


9x9y 
92$ 


»  (3) 


9y3 


9x9y 
92$ 


2*  (3) 


9^ 


9x9y 


Table  A-2  Concluded, 


Notes:   $ 


(3) 

0X3  ,  page  F-15,  is  modified  prior  to  differentiation  to 

(3) 
$9x3  =  \  ?32[3(2b1-b3+b1A1]?2  +  (b^-b^K,,  -3(-b3+2b2+b2y2)<;i] 

by  subtracting  [b1+b2+b3=0]  from  (3b1+b2+b1 \x )  and 
(b1+3b2+b2lJ2)  respectively. 

<b  xs  also  modified  to 

9^ 

V(3)  =  3I3[6C1^3  +  ^(-^-^+2^)] 

prior  to  differentiation  by  noting  that 
-3(C1+C2+<;3=1)  +  3?3  +  2?3  =  5C3  -  3 


A-78 


APPENDIX  B 
User's  Manual  for  Truss,  Beam,  and  Plate-Shell   Elements 

B.l  Introduction 

Appendix  B  contains  excerpts  from  the  SAP  IV  Manual  (Reference  9) 
and  the  SSAP2  Manual  (Reference  13,  known  as  SOLID  SAP).   Only  those 
sections  of  the  manuals  which  pertain  to  the  Truss,  Beam  and  Plate- 
Shell  elements  have  been  excerpted.   For  the  interested  reader  the 
aforementioned  publications  describe  the  Membrane,  2D  Quadrilateral, 
3D  Brick,  Boundary,  Thick  Shell,  and  3D  Pipe  elements. 

B.2  Boundary  Condition  Codes  (Excerpted  from  Reference  9) 

Boundary  condition  codes  can  only  be  assigned  the 
following  values  (M  =  1,2,..., 6): 

IX(N,M)  ■  0;   unspecified  (free)  displacement 
(or  rotation)  component 

IX(N,M)  =  1;   deleted  (fixed)  displacement 
(or  rotation)  component 

IX(N,M)  -  K:  node  number  "K"  (1<  K  >  NUMNP 

and  K  +   N)  is  the  "master"  node 
to  which  the  Mth  degree  of  free- 
dom at  node  "N"  is  a  "slave" 

An  unspecified  (IX(N,M)  =  0)  degree  of  freedom  is  free 
to  translate  or  rotate  as  the  solution  dictates. 
Concentrated  forces  (or  moments)  may  be  applied  in  this 
degree  of  freedom.   One  (1)  system  equilibrium  equation 
is  required  for  each  unspecified  degree  of  freedom  in 
the  model.   The  maximum  number  of  equilibrium  equations 
is  always  less  than  six  (6)  times  the  total  number  of 
nodes  in  the  model. 

Deleted  (IX(N,M)  «  1)  degrees  of  freedom  are  removed 
from  the  final  set  of  equilibrium  equations.   Deleted 
degrees  of  freedom  are  fixed  (points  of  reaction) ,  and 
any  loads  applied  in  these  degrees  of  freedom  are 
ignored  by  the  program.  Nodes  that  are  used  for 
geometric  reference  only  (i.e.,  nodes  not  assigned 
to  any  element)  must  have  all  six  (6)  degrees  of  free- 
dom deleted.   Nodal  degrees  of  freedom  having  undefined 
stiffness  (such  as  rotations  in  an  all  TRUSS  model, 
out-of-plane  components  in  a  two-dimensional  planar 
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model,  etc.)  should  be  deleted.   Deletions  have  the 
beneficial  effect  of  reducing  the  size  of  the  set  of 
equations  that  must  be  solved.  The  table  below  lists 
the  types  of  degrees  of  freedom  that  are  defined  by 
each  different  element  type.   The  table  was  prepared 
assuming  that  the  element  has  general  orientation  in 
(X,Y,Z)  space. 

TABLE  B-l  DEGREES  OF  FREEDOM  WITH  DEFINED  STIFFNESS 
Element  Type     6X      6Y   6Z   60    66     69 

AY        Lt 

Truss  x       x    x 

Beam  x       x    x    x     x      x 

Plate-Shell       x       x    x    x     x      x' 

Note:   x'  is  not  defined  for  the  flat  plate. 


B.3    Slave  Elements 


A  "master/slave"  option  is  allowed  to  model  rigid 

links  in  the  system.   For  this  case,  IX(N,M)  =  K  means 

that  the  Mth  degree  of  freedom  at  node  "N"  is  "slave" 

to  (dependent  on)  the  same  (Mth)  degree  of  freedom  at 

node  "K";  node  "K"  is  said  to  be  the  master  node  to 

which  node  N  is  slave.   Note  that  no  actual  beam  need  to  run 

from  node  K  to  node  N,  however  the  following  restrictions  hold: 

(a)  Node  one  (1)  cannot  be  a  master  node;  i.e., 
K  i   1. 

(b)  Nodes  "n"  and  "K"  must  be  beam-only  nodes; 
i.e.,  no  other  element  type  may  be  connected 
to  either  node  N  or  K. 

(c)  A  node  "N"  can  be  slave  to  only  one  master  node,  "K"; 
multiple  nodes,  however,  can  be  slave  to  the  same  master, 

(d)  If  the  beam  from  "N"  to  "K"  is  to  be  a 
rigid  link  arbitrarily  oriented  in  the 

X,Y,Z  space,  then  all  six  (6)  degrees  of  free- 
dom at  node  "N"  must  be  made  slaves  to  node  "K". 

Displacement/rotation  components  for  slave  degrees  of 

freedom  at  node  "N"  are  not  recovered  for  printing: 

i.e.,  zeroes  appear  as  output  for  slave  degrees  of  freedom. 
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The  remainder  of  Appendix  B  is  excerpted  directly  from  SSAP2  without 
modification,  except  for  some  page  numbering. 


NOTE:   Pages  B-6  and  B-10  specify  multipliers  of  the  gravity  load 
along  the  global  coordinate  axes .   This  may  be  considered 
as  a  function  of  the  slope  of  the  vertical  direction  with 
respect  to  the  global  coordinate  axes .   On  page  B-5  element 
load  multipliers  are  specified.   These  may  be  considered  as 
multipliers  for  the  Dead  Loads  (Dead  Load  Factors)  of  the 
element  in  question.   The  program  gives  four  possible  choices 
of  a  dead  load  which  may  be  added  to  the  live  load  condition 
per  program  run. 
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B-4  Input  Data 

The  geometry  of  the  joints,  the  boundary  conditions,  and  the 
joint  concentrated  loads  are  numerically  defined  by  a  sequence  of 
punched  cards.  The  properties  of  the  different  structural  elements  are 
described  separately. 

I.  Heading  Card  (12A6) 

Columns   1  -  72  Contain  information  to  be  printed  with  output 

II.  Control  Card  (415) 

Columns   1  -  5  Number  of  joints  in  system 

6-10  Number  of  element  groups 

11  -  15  Number  of  load  conditions 

16  -  20  Number  of  frequencies  (=  0  for  static  analysis) 

III.  Joint  Data  (715  ,3F10. 0,15, F10.0) 

The  following  information  must  be  given  for  each  joint  in  the  system: 

Columns   1  -  5  Joint  Number         D   .    r      ....       r    .  „ 

Boundary  Condition  Codes: 

6-10     X-di  recti  on  ,.    -,  ,,     .    .    ..      .   „ 

^  Zero  or  blank  indicates 


-11  -  15     Y-direction 
16-20     Z-di recti  on 


that  the  joint  is  free  to 
move  in  that  direction  and 
i  loads  may  be  applied. 
21  -  25     Rotation  about  X-axis    )    , 


26  -  30     Rotation  about  Y-axis 
31   -  35     Rotation  about  Z-axis 


J 


indicates  that  the 
joint  is  fixed  in  that 
direction. 


36  -  45  X-ordinate  For  a  slave  node 

specify  the  number 
46  -  55  Y-ordinate  Qf  the  master  node. 

56  -  65  Z-ordinate  Number  1  may  not  be 

used. 
66  -  70  KN 

71  -  80  Joint  Temperature 

Joint  cards  need  not  be  in  joint-order  sequence.  If  cards  are 

omitted,  the  joint  data  for  a  series  of  joints  is  generated.  KN 

is  a  mesh  generation  parameter  on  the  last  card  of  a  mesh 

generation  sequence.  KN  is  the  increment  to  be  added  to  the  previous 

nodal  point  number.  The  intermediate  joints  are  located  at  equal 

intervals  along  the  straight  line.  The  boundary  condition  codes  for 

the  generated  joint  data  are  set  equal  to  the  boundary  condition 

codes  on  the  first  joint  card  in  the  series. 
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If  a  particular  degree  of  freedom  is  fixed  for  a  series  of  cards, 
this  may  be  indicated  by  a  boundary  condition  code  of  -1  on  the  first 
joint  card  in  the  series  and  +1  on  the  last  joint  card  in  the  series. 
See  element  descriptions  for  determination  of  temperature  dependent 
material  properties  and  thermal  loads  from  joint  temperatures. 

IV.  Element  Data 

A  sequence  of  cards  is  required  for  each  type  of  element  in  the 
structure.  The  form  of  this  data  for  each  type  is  described  in 
section  B-5. 

V.  Concentrated  Load  Data  (2I5,6F10.0> 

One  card  per  load  case  for  each  joint  which  has  nonzero  concentrated 
loads  or  moments  applied.  The  cards  must  be  in  joint-number  sequence. 

Columns   1  -  5  Joint  number 

6-10  Load  condition  number 

11-20  Load  X-di recti  on 

21  -  30  Load  Y-di recti  on 

31  -  40  Load  Z-di recti  on 

41  -  50  Moment  X-axis 

51  -  60  Moment  Y-axis 

61  -  70  Moment  Z-axis 

This  sequence  of  cards  (if  any)  must  be  terminated  with  ONE  BLANK  CARD. 

VI.  Element  Load  Multipliers  (4F10.0) 

Four  different  types  of  loads  associated  with  the  element  are  possible. 
These  element  loads  are  referred  to  as  load  cases  A,  B,  C  and  D.  By 
the  use  of  "Element  Load  Multipliers,"  it  is  possible  to  add  fractions 
of  the  basic  element  loads  to  any  of  the  concentrated  load  conditions. 

One  card  must  be  supplied  for  each  load  condition  which  contains  the 

following  information: 

Columns   1  -  10  Multiplier  for  element  load  A 

11  -  20  Multiplier  for  element  load  B 

21  -  30  Multiplier  for  element  load  C 

31  -  40  Multiplier  for  element  load  D 
These  cards  must  be  in  load-order  sequence.  The  definitions  of  the 
element  loads  associated  with  a  particular  element  type  are  discussed 
in  detail  under  the  section  "Element  Data". 
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B-5  Element  Data 

Type  1  -  Three-Dimensional  Truss  Members 

Truss  elements  are  identified  by  the  number  1.  Axial  forces  and 
stresses  are  calculated  for  each  member.  A  uniform  temperature 
change  and  inertia  loads  in  three  directions  can  be  considered  as  the 
basic  member  load  conditions.  The  truss  members  are  described  by  tne 
following  sequence  of  cards: 

A.  Control  Card  (315) 

Columns   1  -  5  The  number  1 

6-10  Number  of  truss  members 
11-15  Number  of  members  with  different  properties 

B.  Member  Property  Cards  (I5,5F10.0) 

One  card  is  required  for  each  member  which  has  a  different  cross- 
section  or  different  material  properties. 

Columns   1  -  5  Material  identification  number 

6-15  Modulus  of  elasticity 

16  -  25  Coefficient  of  thermal  expansion 

-  26  -  35  Blank 

36  -  45  Cross-sectional  area 

46  -  55  Weight  per  unit  length  (used  to  calculate  gravity 
loads) 

C.  Element  Load  Factors  (4F10.0)  Four  cards 

Three  cards  specifying  the  fraction  of  gravity  (in  each  of  the 
three  global  coordinate  directions)  to  be  added  to  each  element 
load  case. 

Card  1:  Multiplier  of  gravity  load  in  the  +X  direction 
Columns   1  -  10  Element  load  case  A 

11-20  Element  load  case  B 

21  -  30  Element  load  case  C 

31  -  40  Element  load  case  D 

Card  2:  As  above  for  gravity  in  the  +Y  direction 

Card  3:  As  above  for  gravity  in  the  +Z  direction 

Card  4:  This  indicates  the  fraction  of  the  thermal  load  to  be 
added  to  each  of  the  element  load  cases, 
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D.  Member  Data  Cards  (415, F10, 0,15) 

One  card  per  member  in  increasing  numerical  order  starting  with 
one. 

Columns   1  -  5  Member  number  (n) 

6-10  Joint  number  I 

11-15  Joint  number  J 

16-20  Member  material  identification  number 

21  -  30  Reference  temperature  for  zero  stress 

31  -  35  Optional  parameter  K  causing  automatic 
generation  of  number  data. 

If  a  series  of  elements  exist  such  that  the  member  number,  N. ,  is 
one  greater  than  the  previous  member  number  (i.e.  N.  =  N._,  +  1) 
and  the  joint  number  can  be  given  by 

i,   ■   I,.,  +  * 

J.  =  J..,  ♦  K 

Then  only  the  first  element  in  the  series  need  be  provided.  The 
member  identification  number  and  the  temperature  for  the  generated 
elements  are  set  equal  to  the  values  on  the  first  card.  If  K  is 
input  as  zero  it  is  set  to  1  by  the  program. 

The  member  temperature  increase  AT  used  to  calculate  thermal  loads 
is  given  by 

AT  =  (T,  +  T.)/2.0  -  T 

where  (T.  +  T.)/2.0  is  the  average  of  the  nodal  temperatures 

specified  on  the  joint  data  cards  for  nodes  i  and  j;  and  T  is  the 

zero  stress  reference  temperature  specified  on  the  element  card. 

For  truss  elements  it  is  generally  more  convenient  to  set 

T.  =  T.  =  0.0  such  that  AT  =  -  T  (note  the  minus  sign).  Other 

types  of  member  loadings  can  be  specified  using  an  equivalent  AT. 

If  a  truss  member  has  an  initial  lack  of  fit  by  an  amount  d  (positive 

if  too  long)  then  AT  =  d/(aL)  If  an  initial  prestress  force  P 

(positive  if  tensile)  is  applied  to  the  member  ends  that  is  released 

after  the  member  is  connected  to  the  rest  of  the  structure  then 

AT  =  -  P/(a  A  E).  In  the  above  formulas  A  =  cross  section  area,  L  = 

member  length  and  a  =  coefficient  of  thermal  expansion. 
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Col  urnis 

1   -     5 

6  -  10 

11   -  15 

16  -  20 

Type  2  -  Three-Dimensional  Beam  Elements 

Beam  elements  are  identified  by  the  number  2.  Forces  (axial  and 
shear)  and  moments  (bending  and  torsion)  are  calculated  (in  the  beam 
local  coordinate  system)  for  each  beam.  Gravity  loadings  in  each 
coordinate  direction  and  specified  fixed  end  forces  form  the  basic 
member  load  conditions. 

The  beam  members  are  described  by  the  following  sequence  of  cards: 

A.  Control  Card  (515) 

The  number  2 
Number  of  beam  elements 
Number  of  geometric  property  cards 
Number  of  fixed  end  force  sets 
21  -  25     Number  of  different  materials 

B.  Material   Property  Cards   (I5,3F10.0) 
Columns       1  -     5     Material   identification  number 

6-15     Young's  modulus 
16  -  25     Poisson's  ratio 

C.  Geometric  Property  Cards  (I5,6F10.0) 

Columns   1  -  5  Geometric  property  number 

6-15  Axial  area 

16  -  25    Shear  area  associated  with  shear  forces  in 
local  2-direction 

26  -  35    Shear  area  associated  with  shear  forces  in 
local  3-direction 

36  -  45     Torsional   inertia 

46  -  55     Flexural   inertia  about  local   2-axis 

56  -  65     Flexural   inertia  about  local   3-axis 

One  card  is  required  for  each  unique  set  of  properties.  Shear 
area  is  included  only  if  shear  deformations  are  to  be  included 
in  the  analysis. 
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N  0  T  E  •• 

K    IS   ANY   NODAL    POINT 

WHICH    LIES   IN   THE    LOCAL 

-2   PLANE   (NOT  ON   THE  1-AXIS) 


LOCAL    COORDINATE    SYSTEM    FOR    BEAM    ELEMENT 
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E. 


D.  Element  Load  Factors  (4F10.0) 

Three  cards  specifying  the  fraction  of  gravity  (in  each  of  the 
three  global  coordinate  directions)  to  be  added  to  each  element 
load  case. 

Card  1:  Multiplier  of  gravity  load  in  the  +X  direction 

Columns   1-10  Element  load  case  A 

11-20  Element  load  case  B 

21  -  30  Element  load  case  C 

31  -  40  Element  load  case  D 

Card  2:  As  above  for  gravity  in  the  +Y  direction 

Card  3:  As  above  for  gravity  in  the  +Z  direction 

Fixed-End  Forces  are  not  computed  within  the  program  for  gravity  loads 

Fixed-End  Forces  (15 ,6F1 0.0/15 ,6F10.0) 

Two  cards  are  required  for  each  unique  set  of  fixed-end  forces 
occurring  in  the  analysis.  Distributed  loads  and  thermal  loads  are 
input  using  fixed  end  forces. 

Card  1 :" 


Col umns 


Card  2: 
Columns 


1  -  5  Fixed-end  force  number 

6-15  Fixed-end  force  in  local  1 -direction  at  Node  I 

16  -  25  Fixed-end  force  in  local  2-direction  at  Node  I 

26  -  35  Fixed-end  force  in  local  3-direction  at  Node  I 

36  -  45  Fixed-end  moment  about  local  1 -direction  at  Node  I 

46  -  55  Fixed-end  moment  about  local  2-direction  at  Node  I 

56  -  65  Fixed-end  moment  about  local  3-direction  at  Node  I 


1  -  5  Blank 

6-15  Fixed-end  force  in  local  1-direction  at  Node  J 

16  -  25  Fixed-end  force  in  local  2-direction  at  Node  J 

26  -  35  Fixed-end  force  in  local  3-direction  at  Node  J 

36  -  45  Fixed-end  moment  about  local  1-direction  at  Node  J 

46  -  55  Fixed-end  moment  about  local  2-direction  at  Node  J 

56  -  65  Fixed-end  moment  about  local  3-direction  at  Node  J 
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Note  that  values  input  are  literally  fixed-end  values. 
Corrections  due  to  hinges  and  rollers  are  performed  within  the 
program.  Directions  1,  2  and  3  indicate  principal  directions  in 
the  local  beam  coordinates 

F.  Beam  Data  Cards  (1015,216,18) 

Columns   1  -  5  Identification  -  beam  number 

6-10  Node  I  number 

11-15  Node  J  number 

16-20  Node  K  number  -  see  Figure  4-1. 

21  -  25  Material  number 

26  -  30  Geometric  property  number 

31-35  A 


Fixed-end  force  identification  for 
element  load  cases  A,  B,  C,  and 
D  respectively 


36-40  B 

41-45  C 

46-50  D 

51  -  56  End  release  code  -  Node  I 

57  -  62  End  release  code  -  Node  J 

63  -  70  Optional  parameter  k  used  for  automatic 
generation  of  element  data.  This  option  is 
described  below  under  a  separate  heading.  If 
the  option  is  not  used,  the  field  is  left  blank, 

The  end  release  code  at  each  node  is  a  six  digit  number  of  ones 
and/or  zeros.  The  1st,  2nd,  ....  6th  digits  respectively 
correspond  to  the  force  components  Rl ,  R2,  R3,  Ml,  M2,  M3  at 
each  node. 

If  any  one  of  the  above  member  end  forces  is  known  to  be  zero 
(hinge  or  roller),  the  digit  corresponding  to  that  component  is 
a  one. 

Automatic  Element  Data  Generation 

If  a  series  of  elements  occurs  in  which  each  element  number  NE.  is  one 


greater  than  the  previous  number  NE.  , 


i.e.,  NEi  =  NEi_1  +  1 


B-ll 


only  the  element  data  card  for  the  first  element  in  the  series  need  be 
given  as  input. 

IF       The  end  nodal  point  numbers  NI.  =  NI.  ,  +  k 

NJi  =  NJi_1  +  k 

AND  THE   a)  material  identification  number 

b)  geometric  property  identification  number 

c)  fixed-end  force  identification  numbers  for  each 

element  load  case 

d)  element  code 

e)  orientation  of  local  2-axis 

are  the  same  for  each  element  in  the  series. 

The  generator  option  is  the  value  of  k  and  if  left  blank  is  taken  to  be 
one.  The  element  data  card  for  the  last  element  in  the  structure  must 
always  be  given. 

*Where  successive  beam  elements  have  the  same  stiffness,  orientation  and 
element  loading,  the  program  automatically  skips  recomputation  of  the 
stiffness.  Note  this  when  numbering  the  beams  to  obtain  maximum 
efficiency. 
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Type  6  -  Plate  and  Shell   Elements   (Quadrilateral) 

A.  Control  Card  (315) 

Columns   1  -  5  The  number  6 

6-10  Number  of  shell  elements 
il  -  15  Number  of  different  materials 

B.  Material  Property  Information 

Anisotropic  material  properties  are  possible.  For  each  different 
material,  two  cards  must  be  supplied. 

Card  1:  (I10,20X,4F10.0) 

Columns   1  -  10  Material  identification  number 

31  -  40  Mass  density 

41  -  50  Thermal  expansion  coefficient  a 

51  -  60  Thermal  expansion  coefficient  a 


61  -  70  Thermal  expansion  coefficient  a. 


Card  2: 
Columns 


(6F10.0) 

1  -  10  Elasticity  element  C 

11  -  20  Elasticity  element  C 

21  -  30  Elasticity  element  C 

31  -  40  Elasticity  element  C 

41  -  50  Elasticity  element  C 

51  -  60  Elasticity  element  G 


xx 


Elements  in  plane  stress 
material  matrix  [C] 


xy 
xs 

yy 

ys 

xy 
j 


{           ^ 

QYY 

V       XX 

yy 

•  = 

KJ 

C   C  C 

xx  xy  xs 

C   C  C 

xy  yy  ys 

C   C  G 

xs  ys  xy 


xx 


'yy 


Y 


xy 


C.  Element  Load  Multiplers  (5  cards) 

Card  1:  (4F10.0) 

Columns   1  -  10  Distributed  lateral  load  multiplier  for  load  case  A 

11  -  20  Distributed  lateral  load  multiplier  for  load  case  B 

21  -  30  Distributed  lateral  load  multiplier  for  load  case  C 

31  -  40  Distributed  lateral  load  multiplier  for  load  case  D 

Card  2:  (4F10.0) 
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Columns       1  -  10  Temperature  multiplier  for  load  case  A 

11-20  Temperature  multiplier  for  load  case  B 

21  -  30  Temperature  multiplier  for  load  case  C 

31  -  40  Temperature  multiplier  for  load  case  D 

Card  3:     (4F10.0) 

Columns   1-10  X-direction  acceleration  for  load  case  A 

11  -  20  X-direction  acceleration  for  load  case  B 

21  -  30  X-direction  acceleration  for  load  case  C 

31  -  40  X-direction  acceleration  for  load  case  D 

Card  4:  (4F10.0)  Same  as  Card  3  for  Y-direction 

Card  5:  (4F10.0)  Same  as  Card  3  for  Z-direction 

D.  Element  Cards  (8I5,F10.0) 


One  card  for  each 

element 

Columns   1  -  5 

Element  number 

6-10 

Node  I 

il  -  15 

Node  J 

16  -  20 

Node  K 

21  -  25 

Node  L 

26  -  30 

Node  0* 

31  -  35  Material  identification  (If  left  blank,  taken 
as  one) 

36  -  40  Element  data  generator  K** 

41  -  50  Element  thickness 

51  -  60  Distributed  lateral  load  (pressure) 

61  -  70  Mean  temperature  variation  T  from  the  reference 
level  in  undeformed  position 

71  -  80  Mean  temperature  gradient  3T/9z  across  the  shell 
thickness  (a  positive  temperature  gradient 
produces  a  negative  curvature). 

*  When  columns  26  -  30  are  left  blank,  mid-node  properties  are  computed 
by  averaging  the  four  nodes. 

**  Element  cards  must  be  in  element  number  sequence.  If  element  cards 
are  omitted,  the  program  automatically  generates  the  omitted 
information  as  follows: 
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The  increment  for  element  number  is  one 


i.e.     NEi+1  =  NEt  +  1 


The  corresponding  increment  for  nodal  number  is  K 


i.e.     NI.+1  =  HI,  +  Kn 

NJ.+,  =  MJ,  +  Kn 

NK.+1  =  NK.  +  Kn 

NLi+1  =  NL,  +  Kn 

Material  identification,  element  thickness,  distributed  lateral 
load,  temperature  and  temperature  gradient  for  generated  elements 
are  the  same  as  the  first  element  in  the  series.  The  last 
element  card  is  always  needed. 

NOTE 

The  nodal  point  numbers  I,  J,  K  and  L  are  in  sequence  in  a  counter- 
clockwise direction  around  the  element.  The  local  element  coordinate 
system  (x,  y,  z)  is  defined  as  follows: 

x   Specified  by  LI  -  JK,  where  LI  and  JK  are  midpoints  of  sides 
L-I  and  J-K. 

z   Normal  to  x  and  to  the  line  joining  midpoints  IJ  and  KL. 

y   Normal  to  x  and  z  to  complete  the  right-handed  system. 

This  system  is  used  to  express  all  physical  and  kinematic  shell 
properties  (stresses,  strains,  material  law,  etc.),  except  that  the 
body  force  density  is  referred  to  the  global  coordinate  system  (X,  Y,  Z). 
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For  the  analyses  of  smooth  shells,  rotational  constraints 
normal  to  the  surface  may  be  imposed  by  the  addition  of  Boundary  elements 
at  the  nodes  (element  type  #7). 
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APPENDIX  C  -  PROGRAM  CAPACITY 

C-l  High  Speed  Storage  Requirements 

The  high  speed  storage  requirements  of  the  program  can  be 
changed  depending  on  the  size  of  the  problem  to  be  solved.  This  is  done 
by  changing  the  two  Fortran  statements  at  the  start  of  SAP2,  i.e. 

COMMON  A(n) 
MTOT  =  n 

The  minimum  value  of  n  needed  is  computed  as  follows: 

n  =  10*  (number  of  joints)  +  M 

where 

M  =  the  maximum  value  of  each  of  the  following: 

(1)  Truss  elements 

M  =  5*  NMAT        NMAT  =  number  of  material  types 

(2)  Beam  elements 

M  =  3*NMAT+12*NFIX+6*NPR0P 

NFIX  =  number  of  fixed  end  force  sets 

NPROP  =  number  of  different  beam 
properties 

(3)  Plane  stress  and  plane  strain  elements. 
M  =  4*NMAT+11*NMAT*NTC 

NTC  =  number  of  material  temperatures 

(4)  Axi symmetric  quadrilateral 
M  =  4*NMAT 

(5)  Three-dimensional  solid  elements 

M  =  4*NMAT+4*NLD+2475    NLD  »  number  of  element  load  sets 
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(6)  Plate  and  shell  elements 
M  =  12*NMAT 

(7)  Boundary  elements 
M  =  0 

(8)  Solid  thick  shell  element 
M  =  4*NMAT+4NLD+6615 

Note:  (1)  A  convenient  general  rule  for  computing  a  minimum  value  of 
n  (except  for  solid  elements)  is: 

n  =  11*  (number  of  joints) 

(2)  For  optimum  efficiency,  however,  a  value  of  n,  considerably 
greater  than  the  minimum,  should  be  used. 

(3)  If  the  value  of  n  is  set  too  small  an  error  message  is 
printed  and  program  execution  is  terminated. 

C-2  Low  Speed  Storage  Requirements 

For  very  large  problems,  the  amount  of  low  speed  backup  storage 
on  the  computer  will  govern  the  maximum  size  of  structure  which  can  be 
solved.  Six  temporary  storage  files  are  used  with  the  following  maximum 
storage  requirements: 

Tape  1 

For  element  stress-displacement  transformation  matrices 
Number  of  locations  on  Tape  1  ■ 

Ne 
I   [(Ns  +  2)  *  Nd ■  +  Ns  *  4  +  2]1 
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Tape  2 


Where  N   s  total  number  of  elements 

e 

N   =  number  of  output  stresses  associated  with  an 
element 

N .  -  number  of  displacement  degrees  of  freedom 
associated  with  an  element 


For  element  stiffness  matrices 

Number  of  locations  on  Tape  2  - 

Ne 
I  [Nd  *  (Nd  +  6)  +  l]i 

or  for  temporary  storage  during  solution  of  equations 
Number  of  locations  on  Tape  2  = 


band 


<Nband  *  Neb> 


'eb 
Where  N.   .  =  half  band  width  of  equations 

N  .  =  number  of  equations  in  a  block 

_  (MTOT  -  4  *  N^) 
<Nband  +  N*+1>*2 
N.  =  number  of  load  conditions 

or,  for  storage  of  displacements 

Number  of  locations  on  Tape  2  =  N   *  N. 

Where  ^  =  total  number  of  equations 
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Tape  3 


Tape  4 


Tape  7 


Tape  8 


For  temporary  storage  during  solution  of  equations 
Number  of  locations  on  Tape  3  = 


%  *  ("band  +  V 


For  storage  of  total  stiffness  and  load  matrices, 
Number  of  locations  on  Tape  4  = 


Neq  *  <Nband  +  "*> 


For  temporary  storage  in  the  formation  of  the  total  stiffness 
matrix 

Number  of  locations  on  Tape  2  = 
jq*   (Nd  *  (Nd  +  6)  +  1) 

or,  for  temporary  storage  during  solution  of  equations;  same  as 
second  option  for  Tape  2. 

For  storage  of  boundary  condition  array  and  load  multipliers 
Number  of  locations  on  Tape  8  = 


6  *  N,  +  4  *  NA 


where  N.  s  total  number  of  joints  1n  the  system 
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C-3  Solid-SAP  Common  Storage  Allocation 

COMMON  A  (MTOT) 

COMMON/ELPAR/NPAR  (14),  NUMNP,  MBAND,  Nl ,  N2,  N3,  N4,  N5,  NEQ 

COMMON/ EM/ 2594  locations  max. 

COMMON/JUNK/222  locations  max. 
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APPENDIX  C 
Computer  Program  Listing 


Appendix  C  contains  a  listing  of  the  SSAP2  version  used  by  the 
author  to  process  the  CDC  6400,  IBM  360/370,  and  the  Honeywell  6060 
runs.   In  the  CDC  version  a  single  statement  CALL  SECOND    (T(i))    is 
sufficient  to  call  the  computer  clock  for  calculating  elapsed  CPU 
time  through  the  various  phases  of  the  program  (OVERALL  LOG) .   For 
the  IBM  machine  two  assembler  subroutines  must  be  called;  ETODF   for 
starting  the  clock  and  ET0DF1    for  providing  the  elapsed  CPU  time 
from  start  time.  ETODF   in  turn  calls  a  macro  instruction  STIMER 
(Start  time)  to  set  the  clock.  ET0DF1    calls  a  macro  instruction 
TTIMER   (Total  time)  to  stop  the  clock.   Elapsed  CPU  time  is  thus 
contained  in  TTIMER.      For  calling  the  Honeywell  computer  clock  the 
program  statements  are  similar  to  that  of  the  CDC  machine,  except 
that  a  short  subroutine  is  used  to  return  clock  time  in  the  same  units 
(seconds  x  10~2  as  an  integer  number)  to  the  main  program. 

In  the  IBM  and  Honeywell  runs  underflows  occur  at  statements 
SSAP  584   or  SEEL  442   when  the  shell  element  becomes  nearly  singular. 
The  underflows  are  considered  in  the  nature  of  a  warning  signal  that 
the  results  of  a  computation  are  smaller  than  the  recording  capacity 
of  the  computer.   The  standard  fixup  for  the  IBM  machine  is  to  set 
the  quantity  equal  to  zero.   The  underflows  have  not  yet  interfered 
with  the  program  to  cause  any  errors ;  therefore  the  author  has 
suppressed  the  underflow  warning  messages  by  inclusion  of  a  single 
card  CALL  ERRSET   (208  3256  3-l3l)    in  the  main  program.  Removal  of 
this  card  will  once  again  provide  the  underflow  messages. 
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SSAP 

7 

SSAP 

8 

SSAP 

10 

SSAP 

11 

SSAP 

12 

SSAP 

13 

SSAP 

14 

SSAP 

15 

SSAP 

16 

SSAP 

17 

SSAP 

22 

SSAP 

23 

SSAP 

24 

SSAP 

25 

SSAP 

26 

SSAP 

27 

SSAP 

28 

SSAP 

29 

SSAP 

30 

SSAP 

31 

NNP.NEQI 

SSAP 

32 

SSAP 

33 

STRESS  MATRIX 

ON  TAPE1SSAP 

34 

SSAP 

35 

;    -.)  .<    SO    00    00    0»    00    SO    00    00    00    00    OO    00    00    0*    00    00    *SSAP      3 

C      SAP2  A  STATIC  ANALYSIS  PROGRAM  FOR  THREE-DIMENSIONAL  STRUCTURES    SSAP    4 
C  REVISED  HARCH  1972  SSAP    5 

,-   oo   oo   oo   oo   oo   oo   oo   oo   o«   *o   oo   oo   o»   oo   oe   oo   oo   *SSAP    6 

IMPLICIT  REAL»8  (A-H.O-Z) 

INTEGER  1SYSCR,1SYSLP,1SCRF1,1SCRF2, ISCRF3 B I SCRF4, 1 SCRF7,  I  SCRF8, 
1ISCRF9 

CDHMON/INOUT/ISYSCR,lSYSLP,ISCRFlf ISCRF2  , 1 SCRF3, 1 SCRF4, ISCRF7, 
1I5CRF8.ISCRF9 

COMMON  /JUNK  /  HED ( 12 ) , JUK 1210 1 

COMMON  /EL PAR/  HPAR ( 14 ) , NUMNP.MBAND, NELT YP.N1 ,N2 , N3 ,N4 ,N5 ,HTOT ,NEOSS AP 

COMMON  /  EM  /  QQQ(2596) 

DIMENSION    T<7) 
C 
C  PROGRAM   CAPACITY    CONTROLLED    BY    THE    FOLLOWING   TUO    STATEMENTS 

COMMON   AU1000) 

MT0TM1000 
C 

CALL  ERRSETI208, 256, -1,11 
C 

C      PROGRAM  CONTROL  DATA 
C 

5  CALL  ETODMITOD) 

READ (1SYSCR,  100!  HED.NUMNP.NELTYP  ,LL  ,NF ,NDYN 

IF  (NUMNP.EQ.O)  STOP  SSAP   20 

WRITE) 1SYSLP.200I  HED .NUMNP, NELT YP ,LL 
C 

C      INPUT  JOINT  DATA— ID  ARRAY  ON  TAPE  8   ■ 
C 

Nl=l 

N2=N1+6«NUHNP 

N3=N2*NUMNP 

N<>  =  N3*NUMNP 

N5=N<»  +  NUMNP 

N6=N5*NUMNP 

IFJN6.&T.MT0TJ  CALL  ERROR IN6-MT0T ) 

CALL  INPUT JIAIN1 I, A(N2),A(N3),A(N4),A(N5), NUMNP, NEQ) 
C 

C      FORM  ELEMENT  ST  IFFNESSES— STIFF.  ON  TAPE  2 
C 

CALL  ETODFltlTOD) 

TOD'ITOD 

TU)  =  T0D*0.01 

CALL    ETODMITOD) 

MBA£D*0  SSAP      37 

NUMEL=0  SSAP      38 

REWIND  ISCRF1 

REWIND  ISCRF2 

DO  900  M=1,NELTYP  SSAP   41 

READ!  I  5YSCR . 1001 )  NPAR 

WRITEl  1SCRF1I  NPAR 

NUKEL =NUMEL+NPAR(2) 

MTYPE=NPAR(11 

CALL    ELTYPEIMTYPE) 
9C0    CONTINUE 

CALL     ETOUFKITQDI 

TOO=1TOD 

T I  2  I =T  UD  »0  .01 

CALL  ETODF(ITOD) 
C 

C      INPUT  NODAL  LOADS  AND  JOINT  MASSES  -—  WRITE  ON  TAPE  3 
C 

NEQBHMTOT-«ioLL)/(MBAND»LL*l  1/2 

NBL0CK=(NEQ-1  l/NEOB  *\ 

IF  (NEQB.GT.NEQ)  NEQB=NEO 

N3=N2+NE0B«LL 

N4=N3*6»LL 

WRITE  I1SYSLP,201)  NEO  ,MBAND  .NEQB.NBLOCK 

CALL  INLIAIN1  ),AIN2),AIN3), AIN4), NUMNP, NEQ8.LLI  SSAP   58 

CALL  ETODFKJTODJ 

TODMTOD 

T(3) =T0D»0.01 

CALL    ETODF(ITOD) 
C 

C  FORM    TOTAL    STIFFNESS   MATRIX    —ON    TAPE    4 

C 

NF?B;?*NEQB 

n;  =  nhneob"hband 
n3-n2+neob»ll 

N4  =  N3*4UL 

NN2'N1«NE2R»MBAND 

NN3=NN2*NE2B»LL 

NN<.  =  NN3«4*LL 

CALL    ADDSTF(A(Nl),AINN2),AINN3),AINN41,NUMEL,NBL0CK,NE2B,Ll,MBAND)SSAP 

C-2 


SSAP 

44 

SSAP 

45 

SSAP 

46 

SSAP 

47 

SSAP 

48 

SSAP 

49 

SSAP 

50 

SSAP 

51 

SSAP 

52 

SSAP 

53 

SSAP 

54 

SSAP 

55 

SSAP 

60 

SSAP 

61 

SSAP 

62 

SSAP 

63 

SSAP. 

.  64 

SSAP 

65 

SSAP 

66 

SSAP 

67 

SSAP 

68 

SSAP 

69 

SSAP 

70 

CALL  ET0DFK1T0D) 
T0D=1TCD 
TI4)=TOD*0.01 
CALL  ETODFIITOD) 

SOLVE  FOR  DISPLACEMENT  UNKNOWNS 

NSB=(MBAND*LL)*NEQB 

NSB8=NtOBoLL»(2«(MBAND-l)/NEQB)  • 

lFfNSB8.LT.NSB)  NSBB'.NSB 

N4  =  N3-»N5BB 

CALL  U50L  IAIN1  )  .  A < N3 ) , A( N4 I ,NEQ6 ,MBAND ,LL ,NBLOCK ,NSB ,4 , 3, 7 ,2 , 2 ) 

CALL  ETODFKITOOi 

TOD=!TDD 

T(5)=TCD»0.01 

CALL  ETODFlITOOl 

PRINT  DISPLACEMENT 

N2=N1+NUMNP*6 

N3*N2*6»LL 

CALL  PRINTD(AIN1),A(N2»,AIN3>,NEQB,NUMNP,LI,NBL0CK,NE0,2I 

COMPUTE    STRESSES 

30    N2=N1*4°LL 
N3=N2*NEQB*LL 
ie=iMTUT-NJ)/«NEQ    *12) 
NCVN=0 
CALL    STRESS(AIN) )  ,  AIN2 ) , AIN3 ) ,NEQB,LB,ll,NEQ,NBLOCK ) 

CALL    ETOOFiUTOCJ 

TOD=ITOD 

T(6J'T0D«0.01 

T(7)*T(1  )«T(2)»T(3)»T(4)»T(S)«T(6) 

WRITE  (ISVSLP,2C3I  ITU), 1*1, 7) 


ICO 
2C0 


2C1 


2C3 


GO  TO  5 

F0RMATU2A6/6 
FGRMAT (1H1  ,12 
.   28H   NUMBER 
.   28H   NUMBER 
.   28H   NUMBER 
F0RMATJ34H2  T 
I       /34H   B 
»       /34H   N 
3       /34H   N 
FORMAT  (  12H2 
33H 
.  33H 

33H 
33H 
33H 
33H 
33H 


ISI 

A6/// 
OF  NODAL  POINTS    «   , 15// 
OF  ELEMENT  TYPES   «   ,15// 
OF  LOAD  CASES      •  ,15) 

OTAL  NUMBER  OF  EQUATIONS 

ANDWIDTH 

UMBER  OF  EQUATIONS  IN  A 

UMBER  OF  BLOCKS 

OVERALL  LOG  // 

NODAL  POINT  INPUT 

FORM  ELEMENT  STIFFNESS 
INPUT  NODAL  LOADS... 
FORM  TOTAL  STIFFNESS 
EQUATION  SOLVING.... 
ELEMENT  STRESSES.... 
TOTAL  SOLUTION  TIME. 


«,I5, 

«,I5, 

BLOCK  >,I5, 

>,I5) 


J  ft  •  •  ft 


,F8.2// 

,F8.2// 

,F8.2// 

,F8.2// 

,F8.2// 

,58.2/// 

.F8.2I 


SSAP 

72 

SSAP 

73 

SSAP 

74 

SSAP 

75 

SSAP 

76 

SSAP 

77 

SSAP 

78 

SSAP 

79 

SSAP 

81 

SSAP 

82 

SSAP 

83 

SSAP 

84 

SSAP 

85 

SSAP 

8b 

SSAP 

87 

SSAP 

86 

SSAP 

89 

SSAP 

90 

SSAP 

91 

SSAP 

92 

SSAP 

93 

SSAP 

94 

SSAP 

95 

1001  FORMAT  (1415) 
END 


SSAP   99 


SSAP  101 
SSAP  102 
SSAP  103 
SSAP  104 
SSAP  105 
SSAP  106 
SSAP  107 
SSAP  1C8 
SSAP  109 
SSAP  110 
SSAP  111 
SSAP  112 
SSAP  113 
SSAP  114 
SSAP  115 
SSAP  116 
SSAP  117 
SSAP  118 
SSAP  119 
SSAP  120 
SSAP  121 
SSAP  122 
SSAP  123 


BLOC*    DATA 

IMPLICIT    REAL«8    (A-H.O-Z) 

INTEGER    ISYSCR,ISYSLP,1SCRF1,I SCRF2, I SCRF3  ,  I SCRF4, I SCRF7, ISCRF8 , 
1ISCRF9 

COMMON/INOUT/ISYSCR,ISYSLP,ISCRF1,ISCRF2, I SCRF3, I SCRF4 , I SCRF 7, 
1ISCRF8.ISCRF9 

OAT A    ISYSCR.ISYSLP.ISCRF1 , I SCRF 2, I SCRF3, I  SCR F4 , I SCRF7 , I SCRF8, 
1 I SCRF9/ 1,3, 11, 12. 13, 14, 17, 18, 19/ 

ENO 


C — 


SUBROUTINE     INPUT  J  HO, X  ,Y  ,  2  ,T  ,NUMNP  ,NEO  ) 
E.    WILSON    JULY    1971 

IMPLICIT    REAL*8     <A-H,0-Z> 

INTEGER     ISYSCR,ISYSLP,ISCRF1,ISCRF2,ISCRF3,ISCRF4,ISCRF7, ISCRF8, 
1ISCRF9 

COMMON/INOUT/ISYSCR.ISYSLP.ISCRF 1 , I SCRF 2, I SCRF3, I  SCR F*,  I  SCRF 7, 
1  ISCRF8,ISCRF9 

DIMENSION     XII  )  ,Y(1  ),Z(1  )  ,  I D (NUMNP.6  )  , T (  1) 


READ    OR       GENERATE    NODAL    POINT     PATA- 


SSAP    124 
SSAP    125 


SSAP    126 

SSAP    127 

■SSAP    128 
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WRITE     < ISYSLP.2000) 
WRITE    ( ISYSLP,200l) 

NOLD=0  SSAP    131 
10    READ! ISYSCR.1000)    N , ( 10 (N, I ) , I  *  1 ,6 ) , X ( N ) , Y ( N ) ,2 ( Nl , KN,  T ( N> 
WRITfc     < ISYSLP,?002)    N,  (  IDIN, I  ),I  =  1,6),X (N)  ,Y< N) ,Z <N> ,KN, TIN) 

IFINULD.EO.OI     GO    TU    50  SSAP    13* 

C CHECK     IF    GENERATION     IS    REQUIRED SSAP    135 

00    20    1=1 ,6  SSAP    136 

IF(  lOIN, I  I.EO.O.ANO.IDINOLD.l  l.LT.O)  I D ( N , I )  =  I 0( NOLO, I  )                               SSAP    137 

20   CONT 1NUE  SSAP    138 

IF(KN.EU.O)     GO    TO    50  SSAP    139 

NUM= (N-N0LD1/KN  SSAP    140 

NUMN=NUM-1  SSAP    141 

IF(NUMN.LT.l)    GO    TO    50  SSAP    142 

XNUM=NUM  SSAP    143 

DX=(X(N)-X(N0LD) )/XNUM  SSAP    144 

DY=(Y<N)-Y(N0L0> >/XNUM  SSAP    145 

DZ=(Z(N)-Z(NOLD) l/XNUM  SSAP    146 

DT=(T(N)-T(NOLD) )/XNUM  SSAP    147 

K=N0L0  SSAP    148 

00    30    J=1,NUMN  SSAP    149 

KK=K  SSA-P    150 

K=K+KN  SSAP    151 

X(K)=Xt  KK1  +  DX  SSAP    152 

Y(K1=Y(KK)+DY  SSAP    153 

Z(K)=Z( KK1+0Z  SSAP    154 

T(K)=T(KK)+DT  SSAP    155 

00    30    1=1 ,6  SSAP    156 

ID(K, I )=ID(KK,I)  SSAP    157 

IF    I  I0IK.I  I.GT.l )     ID(K,I  )  =  ID(KK, I )+KN  SSAP    158 

30    CONTINUE  SSAP    159 

C  SSAP    160 

50    N0L0=N  SSAP    161 

IFIN.NE  .NUMNP)    GO    TO    10  SSAP    162 

C  SSAP    163 

C PRINT    ALL    NODAL    POINT    DATA SSAP    164 

C                 .  SSAP    165 
WRITE! ISYSLP,2003) 
WRITE     ( ISYSLP.2001 ) 

WRITE    ( 1SYSLP.2005)     (N  ,  (  ID  (N  ,  I  )  ,  I  =  1,6  >  ,X  <  N)  ,  Y  C  N>  ,Z  <  N) ,  T  (  N)  , 
IN=1, NUMNP) 

C  SSAP    169 

C — —-NUMBER    UNKNOWNS    AND    SET    MASTER    NODES    NEGATIVE SSAP    170 

C  SSAP    171 

N60=0  SSAP    172 

DO   60    N=l, NUMNP  SSAP    173 

DO    60     1=1,6  SSAP    174 

IDIN.I )=IABS( IDIN, I ) >  SSAP    175 

IF( ID(N,I )-l)    57,58,59  SSAP    176 

57  NE0=N60+1  SSAP    177 

I0<N,1)=NE0  SSAP    178 

GO   TO    60  SSAP    179 

58  ID(N,I)=0  SSAP    180 
GO   TO    60  SSAP    181 

59  IDIN,I)=-I0(N,I)  SSAP    182 

60  CONT INUE  SSAP    183 
WRITE     ( 1SYSLP.2004)     (N , ( ID( N , I  )  ,  I  =  1 ,6  )  ,N= 1 , NUMNP  ) 

REWIND     1SCRF8 
WRITE     (ISCRF-8)     ID 

C  SSAP    187 

RETURN  SSAP    188 

1000    FORMAT     I7I5,3F10.0,I5,F10.0)  SSAP    189 

2000  FORMAT     I/./23H    NODAL    POINT     INPUT    DATA  )                                                                                  SSAP    190 

2001  FORMAT  (5H0N0DE  3X  24HR0UN0ARY  CONDITION  CODES  1 IX  SSAP  191 
..  23HNODAL  POINT  COORDINATES  /  7H  NUMBER  2X  1HX  4X  1 HY  4X  1HZ  3X  SSAP  192 
.    2HXX    3X    2HYY    3X    2HZZ12X    1 HX    UX    1HY  1 2X    1HZ     12X    1HT    >                                  SSAP    193 

2002  FORMAT     1 1  5,  6 15 , 3F1 3 .3, 15 ,F1  3 . 3 )  SSAP    194 

2003  FORMAT     I//21H    GENERATED    NOOAL    DATA)  SSAP    195 

2004  FORMAT  (//17H  EOUAT ION  NUMBERS/  SSAP  196 
1     35H            N            X            Y            Z         XX         YY  ZZ    /<7I5))                                                     SSAP    197 

2005  FORMAT     ( I  5 ,6  15 ,4F 1 3  .3  )  SSAP    198 
END  SSAP    199 


SUBROUTINE    ELT YPE (MT YPE )  SSAP    200 

IMPLICIT    REAL*8     (A-H.O-Z) 

INTEGER     ISYSCR.ISYSLP, ISCRF1.I SC  RF2,  I  SCRF  3,  I SCRF4, ISCRF7, ISCRF8, 
1  ISCRF9 

C0MM0N/1N0UT/ISYSCR,ISYSLP,ISCRF 1 , 1 SCRF 2, I SCRF3, I  SCR F4, 1  SCRF 7, 
1 ISCRF8, I SCRF9 
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900 


GO  TO  ( 1,2,3,4,5,6,7,8>,MTYPE 

THREE  DIMENSIONAL  TRUSS  ELEMENTS 

CALL  TRUSS 
GO  TO  900 

THREE  DIMENSIONAL  HEAM  ELEMENTS 

CALL  BEAM 
GO  TO  900 

PLANE  STRESS  ELEMENTS 

CALL  PLANE 
GO  TO  900 

AXISYMMETRIC  SOLID  ELEMENTS 

CALL  PLANE 
GO  TO  900 

THREE  DIMENSIONAL  SOLID  ELEMENTS 

CALL  THREED 
GO  TO  900 

plate  bending  elements 
call  shell 

GO   TO    900 


CALL    BOUND 
GO    TO    900 

THICK    SHELL    ELEMENTS 

CALL    THKSHL 

RETURN 
END 


SSAP 

201 

SSAP 

202 

SSAP 

203 

SSAP 

204 

SSAP 

205 

SSAP 

206 

SSAP 

207 

SSAP 

208 

SSAP 

209 

SSAP 

210 

SSAP 

211 

SSAP 

212 

SSAP 

213 

SSAP 

214 

SSAP 

215 

SSAP 

216 

SSAP 

217 

SSAP 

218 

SSAP 

219 

SSAP 

220 

SSAP 

221 

SSAP 

222 

SSAP 

223 

SSAP 

224 

SSAP 

225 

SSAP 

226 

SSAP 

227 

SSAP 

228 

SSAP 

229 

SSAP 

230 

SSAP 

231 

SSAP 

232 

SSAP 

233 

SSAP 

234 

S5AP 

235 

SSAP 

236 

SSAP 

237 

SSAP 

238 

SSAP 

239 

SSAP 

240 

SSAP 

241 

SSAP 

242 

SUBROUTINE     INL«  ID, B ,TR  ,TMASS ,NUMNP ,NEOB, LL I 

IMPLICIT    REAL«8     (A-H.O-Z) 

INTEGER    ISYSCR,ISYSLP,ISCRF 1,1 SCRF2, I SCRF3 , I SCRF4, I SCRF7, ISCRF8, 
1ISCRF9 

COMMON/ I N0UT/1SYSCR, I S YSLP , I SCRF1 , I SCRF2 , I SCRF3, I SCRF4, I SCRF7, 
1ISCRF8.1SCRF9 

INPUT    NODAL    LOADS    AND   MASSES 

DIMENSION     ID(NUMNP,6),B(NE0B,LL),rR(6,LL>,TMASS(NEOB) 
COMMON    /    JUNK    /    R(6),TXM(6) 

NT=3 

REWIND    ISCRF3 

KSHF=0 

WRITE    I  ISYSLP.2002) 

DO    750    I-ltNEQB 

TMASS(  I)=0. 

DO    750    K=1,LL 

750  B( i;k)=o.o 


SSAP    243 


DO   900    NN=l,NUMNP 

DO    100    1=1,6 
TXMd  )  =  0. 
00    100    J=1,LL 
100    TR(I,J)=0.0 

IF(NN.EO.l)     GO    TO    300 
150    IF<N.NE.NN)    GO    TO    400 

DO    200    1=1,6 

IF    «L)     180,180,190 
180    TXMI I )=R(I ) 

GO    TO    200 
190    TR( 1,L)-R(I > 
200  CONT INUE 


SSAP 

244 

SSAP 

245 

SSAP 

246 

SSAP 

247 

SSAP 

248 

SSAP 

249 

SSAP 

250 

SSAP 

252 

SSAP 

254 

SSAP 

255 

SSAP 

256 

SSAP 

257 

SSAP 

258 

SSAP 

259 

SSAP 

260 

SSAP 

261 

SSAP 

262 

SSAP 

2  63 

SSAP 

264 

SSAP 

265 

SSAP 

266 

SSAP 

267 

SSAP 

268 

SSAP 

269 

SSAP 

270 

SSAP 

271 

SSAP 

272 

SSAP 

273 
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300    READ    < ISYSCR.1001  )    N,L,R 

IF    (N.EO.O)    GO    TO    150  SSAP   275 

WRITE     ( ISYSLPf2001  I    N,L,R 

GO   TO    150  SSAP   277 

C  SSAP    278 

400  DO  800  J«l,6  SSAP  279 

II«ID(NN,J)-KSHF  SSAP  280 

IF    (II)     800,800,500  SSAP    281 

500    DO    600       K=1,LL  SSAP    282 

600    B< II ,K)=TR(J,K)  SSAP    283 

THASSI II  )  =  TXM( J)  SSAP    2B4 

610    IF( I I.NE.NEOB)    GO    TO    800  SSAP    285 

WRITE! ISCRF3)    B.TMASS 

KSHF=KSHF+NEOB  SSAP    287 

DO    700    I=1,NE0B  SSAP    288 

THASSI I)=0.  SSAP    289 

DO    700    K=1,LL  SSAP    290 

700    B( I,K)=0.0  SSAP    291 

800    CONTINUE  SSAP    292 

900   CONTINUE  SSAP   293 

WRITEIISCRF3)    B.TMASS 

i  SSAP    295 

RETURN  SSAP    296 

1001    FORMAT     (2I5,7F10.0)  SSAP    297 

2001  FORMAT  <2I5,7F10.3)  SSAP  298 

2002  FORMAT  (23H2 NODAL  POINT  LOADS  //  10H  NODE  LOAD  23X            SSAP  299 

.  14HAPPL1ED  LOADS  /  10H   NO.  CASE   6X   2HRX   8X        SSAP  300 

.   2HRY  8X  2HR2  8X  2HMX  8X  2HMY  8X  2HMZ  )                            SSAP  301 

END  SSAP  302 


SUBROUTINE    ERROR (N)  SSAP  303 
WRITE    (  ISYSLP.2000)    N 

2000    FORMAT     (//    20H    STORAGE  EXCEEDED    BY       16)                                                                           SSAP  305 

STOP  SSAP  306 

ENO  SSAP  307 

SUBROUTINE    ADDSTF ( A.B.STR , TMAS S.NUMEL ,NBL0CK,NE2B, LL, MBAND)  SSAP    308 

IMPLICIT    REAL*8     (A-H.O-Z) 

INTEGER    ISYSCR,ISYSLP,ISCRF1,ISCRF2,ISCRF3,ISCRF4,ISCRF7, ISCRF8, 
1ISCRF9 

^£OMMON/INOUT/ISYSCR,ISYSLP,ISCRF 1 , I SCRF2, I SCRF3 , I  SCR F4, I SCRF7, 
1ISCRF8.I SCRF9 
C  FORMS    GLOBAL    EQUILIBRIUM    EQUATIONS    IN    BLOCKS  SSAP    309 

DIMENSION    AINE2B, MBAND), BINE2B, LL), STR(  4,LL),  TMASS1  NE2B  I  ,  SS  (  1 )  SSAP    310 

COMMON    /EM/    LRD,ND,LM(2592 ) 

EQUIVALENCE     ( SS ( 1  ) , LM ( 1 ) ) 

NEQB=NE2B/2  SSAP    313 

K=NEQB+1  SSAP    314 

X=NBLOCK  SSAP    315 

MB=DSQRT (X) 

MB=MB/2*1  SSAP    317 

NEBB=MB*NE2B  SSAP    318 

MM=l  SSAP    319 

C  SSAP    320 

NSH1FT=0  SSAP    321 

REWIND    ISCRF3 

REWIND     ISCRF4 
C  SSAP   324 

C  READ    ELEMENT    LOAD    MULTIPLIERS  SSAP    325 

C  SSAP    326 

WRITE    I  ISYSLP.2000) 

DO    50    L=1,LL  SSAP   328 

READ! ISYSCR.1002)     (STR(I,L),I=1,4) 
50    WRITE    ( ISYSLP.2002)    L, (STR ( I , L  )  ,  1  =  1 ,4  ) 

WRITE    t ISCRF8)    STR 
C  SSAP    332 

C  FORM    EQUATIONS    IN    BLOCKS  (     2    BLOCKS    AT    A    TIME)  SSAP    333 

C  SSAP    334 

DO    1000    M=1,NBL0CK    ,2  SSAP    335 

DO    100    I=1,NF2B  SSAP    336 

DO  100  J=l, MBAND  SSAP  337 

100  A( I,J)=0.  SSAP  338 

READ  (ISCRF3)  (  (8  (  I  ,L  )  ,  I  =1  ,N(f  OB  )  ,  L=  1 ,  LL  )  ,  I  TMASS  (  I  )  ,  I  =  1,  NEQB  ) 

IF  (M.EQ.NBLOCK)  GO  TO  200  SSAP  340 

READ  (ISCRF3)  ( (B ( I ,L ) , I =K ,NE2B) , L= 1 , LL ) , ( TMASSI I ) , I =K, NE2B ) 
200  CONTINUE  SSAP  342 

C  SSAP  343 

REWIND  ISCRF7 


C-6 


REWIND     ISCRF2 
NA-ISCRF7 

NUME»NUM7  SSAP    347 

IF     IMM.NF.ll    GO    TO    75  SSAP    348 
NA=ISCRF2 

NUME-NUMFL  SSAP    350 

NUM7    =0  SSAP    351 

C  SSAP    352 

75   00    700    N=1,NUME  SSAP    353 

READ    (NA)    LRO,ND, (SS< 1 ),I=1,LRD) 

00  600    1=1 fND  SSAP    355 
LMN-1-LMU  )  SSAP    356 

1  I  =  LM(  D-NSH1FT  SSAP    357 
IF    < I I.LE.O.OR.I I  .GT.NE2B)    GO    TO  600                                                                                   SSAP    358 

DO    300    L=l  iLL  SSAP    359 

DO    300    J  =  l,4  SSAP    360 

KK=ND*( ND+J)+1  SSAP    361 

300    B<  II,L)  =  B(  I  I  ,L)+SS<  I+KK)*STR(  J,L)  SSAP    362 

00    500    J=1,N0  SSAP    363 

JJ=LM<J)+LMN  SSAP    364 

IF(JJ)     500,500,390  SSAP    365 

390    KK=N0*J+1  SSAP    366 

400    A(  II  ,JJ)=AUI  , JJ)*SS(I+KK)  SSAP    367 

500    CONTINUE  SSAP    368 

600   CONTINUE  SSAP    369 

C  SSAP   370 

C              DETERMINE     IF    STIFFNESS    IS    TO    BE  PLACED    ON    TAPE    7 

C  SSAP    372 

IF    (MM.GT.l)    GO    TO    700  SSAP    373 

00    650    1=1, ND  SSAP    374 

1I  =  LM(I)     -NSHIFT  SSAP    375 

1FI  II  .GT  .NE2B.AND.1 I .LE.NEBB)    GO  TO    660                                                                           SSAP    376 

650   CONTINUE  SSAP    377 

GO    TO    700  SSAP    378 
660   WRITE    (  ISCRF7)    LRO  ,ND , ( SS ( I ) , I =1 » LRO ) 

NUM7=NUM7+1  SSAP    380 

C  SSAP    381 

700    CONTINUE  SSAP    382 
WRITE    (  ISCRF4)     (<A(I,J) ,1=1 ,NbOB>, J=1,MBAND) , <<BI I , L ) , 1  =  1 , NEOB ) , 
1L=1,LL) 

IF(H.EO.NBLOCK)    GO    TO    1000  SSAP    384 
WRITE     < ISCRF4)     ( (All ,J) , I =K , NE2B » , J= 1 , MBA ND ) , (  (fl< I , L) , I =K, NE2B )  , 
IL=1,LLJ 

IF     <MM.EO.MB)    MM=0  SSAP    386 

MM=MM+1  SSAP    387 

1000    NSHIFT=NSHIFT+NE2B  SSAP    388 

C  SSAP    389 

RETURN  SSAP    390 

1002    FORMAT     (4F10.0)  SSAP    391 

2000    FORMAT     U0H2STRUCTURE     12X    25HELEMENT    LOAD    MULTIPLIERS    /  SSAP    392 

.     10H    LOAD    CASE    9X     1HA    9X     1H8    9X  1HC    9X     1H0/)                                                                  SSAP    393 

2002    FORMAT     ( 16 , 7X ,4F 10. 3)  SSAP    394 

END  SSAP    395 


SUBROUTINE    PRINTOI ID ,D ,B »NEQB ,NUMNP, LL ,NBLOCK, NEQ, NT)  SSAP    396 

IMPLICIT    REAL*8     «A-H,0-Z) 

INTEGER    ISYSCRtlSYSLPiISCRFl, 1 SC RF2, I SCRF3, I  SCR F4, I SCRF7, ISCRF8, 
1ISCRF9 

C0MM0N/1N0UT/ISYSCR,ISYSLP,ISCRF1,ISCRF2,ISCRF3,ISCRF4,I SCRF7, 
1ISCRF8,ISCRF9 
C  SSAP    397 

DIMENSION    1D(NUMNP,6),BINEQB,LL),D(6,LL)  SSAP   398 

C  SSAP    399 

NT=ISCRF2 

REWIND    NT  SSAP    400 

REWIND    ISCRF8 

READ    ( ISCRF8)     10 

M=NEQ  SSAP    403 

NN=NEQB*N8L0CK  SSAP   404 

WRITE     « 1SYSLP.2003) 

N=NUMNP  SSAP    406 

C  SSAP    407 

DO   500    KK=1,NUMNP  SSAP    408 

C  SSAP    409 

1»6  SSAP    410 

00    250    I  1  =  1 ,6  SSAP    411 

DO    100    L=1,LL  ,  SSAP    412 

100    D( I,L)=0.  SSAP    413 

IF(M.GT.NN)    GO    TO    150  SSAP    414 


C-7 


IF    (M.EO.O)     GO    TO    150  SSAP   415 

READ    <NT>     B  SSAP   416 

NN'NN-NEQB  SSAP    417 

150    IF(  IDIN.I  ).LT.l  )    GO    TO    250  SSAP    418 

K=M-NN  SSAP    419 

M*M-1  SSAP    420 

'.  SSAP    421 

DO   200    L=1,LL  SSAP   422 

200    D(  I,L»«=B(K,L)  SSAP    423 

250    1=1-1  SSAP    424 

i  SSAP    425 

WRITE    <  ISYSLP.2004)    N, ( L , (0( I ,L> , I = 1,6 ) , L  = 1 , LL) 

"-  SSAP   427 

500   N  =  N-1  SSAP   428 

'.  SSAP    429 

RETURN  SSAP    430 

:  SSAP    431 

2003  FORMAT     <40H1 NODE  DISPLACEMENTS    AND    ROTATIONS//                                     SSAP    432 

.       5H    NODE       5H    LOAD       UX  1HX        11X        1HY       1 IX        1HZ       9X       2HXX                        SSAP    433 

.       9X       2HYY       9X       2HZZ)  SSAP    434 

2004  FORMAT     <lH0,I4,I5,lP3El2.3,3E11.2/( I  10, 3E1 2. 3, 3E 1 1 . 2 ) )  SSAP    435 
END  SSAP   436 


SUBROUTINE    USOL     ( A ,B ,MAXB, NEOB.MB, LL.NBLOCK, NSB, NORG, NBKS, NT1 ,  SSAP   437 

NT2.NRST)       SSAP    438 
IMPLICIT    REAL*8     (A-H.O-Z) 

INTEGER    ISYSCR,ISYSLP,ISCRF  1,1 SCRF2, 1 SCRF3 , I SCRF4, I SCRF7, ISCRF8, 
1 1 SCRF9 

C0MM0N/IN0UT/ISYSCR,ISYSLP,ISCRF1,ISCRF2,ISCRF3,ISCRF4,ISCRF7, 
1ISCRF8, ISCRF9 

DIMENSION    A(NSB) ,B ( NSB ) ,M AXB ( NEOB )  SSAP    439 

C SSAP    440 

NC=MB+LL  SSAP    441 

NBR=(MB-1 1/NEOB+l  SSAP    442 

INC=NE0B-1  SSAP    443 

NMB=NEOB»MB  SSAP    444 
N2=ISCRF2 
N1=ISCRF7 
N0RG=ISCRF4 
^NBKS=ISCRF3 
NRST=ISGRF2 

REWIND    NORG  SSAP    447 

REWIND    NBKS  SSAP    448 

C  SSAP    449 

C REDUCE    EOUATIONS      BLOCK-BY-BLOCK    SSAP    450 

C  SSAP   451 

DO    900    N=1,NBL0CK  SSAP    452 

IF    (N.GT.l.AND.NBR.EO.l I    GO    TO    110  SSAP   453 

IF     INBR.EO.l)    GO    TO    105  SSAP    454 

REWIND    Nl  SSAP   455 

REWIND    N2  SSAP    456 

105   NI  =  N1  SSAP   457 

IF(N.EO.l)    NI=NORG  SSAP    458 

READ    (Nil     A  SSAP   459 

110    DO    300    1=1, NEOB  SSAP    460 

D=A( I)  SSAP   461 

IF(D)     115,300,120  SSAP    462 

115  M=NE0B*(N-1)+I  SSAP   463 
WRITE     (ISYSLP.116)    M,D 

116  FORMAT     (33HOSET    OF    EOUATIONS   MAY  BE    SINGULAR          /                                                  SSAP   465 
.       26H    DIAGONAL    TERM    OF    EOUATION  18,    8H       EQUALS          1PE12.4)                      SSAP    466 

C  SSAP   467 

120     I I = I  SSAP    468 

DO    125    J=2,NC  SSAP   469 

II=II+NEOB  SSAP    470 

125   A< II >  =  A( I  I  )/D  SSAP   471 

C  SSAP    472 

DO    130    J=I,NMB,NE0B  SSAP    473 

IF     (A(J).NE.O.)     MAXB(I»=J  SSAP    474 

130   CONT INUE  SSAP   475 

C  SSAP    476 

JL-I+1  SSAP   477 

IF     (JL.GT.NEOB)    GO    TO    300  SSAP    478 

I I-I  SSAP   479 

DO    200    J=JL,NEQB  SSAP    480 

II=II*NEOB  SSAP    481 

IF<  II .GT  .NMB>    GO    TO    200  SSAP    482 

C«A(  II )  SSAP   483 

IF     (CEO. 0.0)    GO    TO    200  SSAP    484 
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OOA(  I)  SSAP   485 

C  SSAP    486 

KK-J-I I  SSAP    487 

MAX-MAXBII )  SSAP    488 

OU    150    JJ=  II ,MAX,NtOB  SSAP    489 

150    A( JJ+KK)=A( JJ+KK)-C»A( JJ )  SSAP    490 

C  SSAP    491 

KK=J    +  NMB  SSAP    492 

JJ-I+NMB  SSAP    493 

DO    175    L=1,LL  SSAP   494 

A(KK)=A(KK)-C*A(JJ)  SSAP    495 

KK=KK*NEOB  SSAP    496 

175    JJ=JJ+NEOB  SSAP   497 

200    CONTINUE  SSAP    498 

300   CONTINUE  SSAP    499 

WRITE     (NBKS)    A.MAXB  SSAP    500 

C  SSAP    501 

C SUBSTITUTE     INTO    REMAINING    EQUATIONS    SSAP    502 

C  SSAP    503 

DO    800    NN=1 ,NBR  SSAP    504 

IFIN+NN.GT  .NBLOCK)    GO    TO    800  SSAP    505 

NI=N1  SSAP    506 

IF(N.EO.l)    NI=N0RG  SSAP    507 

IFINN.EQ.NBR  )    NI=N0RG  SSAP    508 

READ    (NI)     B  SSAP    509 

1L=1+NN*NEQB*NEQB  SSAP    510 

00    700    I=1,NE0B  SSAP    511 

1 1= IL  SSAP    512 

DO   690    K=1,NE0B  SSAP    513 

IF     UI.GT.NMB)     GO    TO    690  SSAP    514 

C=A( II >  SSAP    515 

IF    (CEO. 0.0)    GO    TO    690  SSAP    516 

C  =  C*A(K)  SSAP    517 

MAX=MAXB(K)  SSAP    518 

C  SSAP    519 

KK=I-II  SSAP    520 

DO    640    JJ=  II ,MAX,NEOB  SSAP    521 

640    B( JJ+KK)=B( JJ+KK)-C*A( J J )  SSAP    522 

C  SSAP    523 

KK=I+NMB  SSAP    524 

JJ=K+NMB  SSAP    525 

DO    650    L=1,LL  SSAP    526 

B(KK)  =  B(KK)-C»AUJ)  SSAP    527 

KK=KK+NEQB  SSAP    528 

650    JJ=JJ+NEOB  SSAP    529 

C  SSAP    530 

690    I  1=1 1-INC  SSAP    531 

700     IL=1L+NE0B  SSAP    532 

C  SSAP    533 

IF(NBR.NE.l)  GO  TO  750  SSAP  534 

DO  740  1  =  1, NSB  SSAP  535 

740  A(  I)  =  B( I  )  SSAP  536 

GO   TO    800  SSAP    537 

750    WRITE    <N2)    B  SSAP    538 

800   CONTINUE  SSAP    539 

C  SSAP    540 

M  =  N1  SSAP    541 

N1  =  N2  SSAP    542 

900  N2=M  SSAP    543 

C  SSAP    544 

C BACKSUBSTITUTION    -    RESULTS    ON    TAPE    NRST      SSAP    545 

C  SSAP    546 

LS=LL»NEOB  SSAP    547 

NEB=NEQB*(N8R+1)  SSAP    548 

NUM=NBR*NEQB  SSAP    549 

MAX=NEB»LL  SSAP    550 

00   905    1  =  1  ,MAX  SSAP    551 

905    B(  I  >  =  0.  SSAP    552 

REWIND    NRST  SSAP    553 

C SSAP    554 

DO    1000    N=l, NBLOCK  SSAP    555 

BACKSPACE    NBKS  SSAP    556 

REAO    INBKS)    A.MAXB  SSAP    557 

BACKSPACE    NBKS  SSAP    558 

DO   910    L=1,LL  SSAP    559 

K=L*NEB  SSAP    560 

DO    910    J=1,NUM  SSAP    561 

I=K-NEOB  SSAP    562 

B(K)-BI I »  SSAP    563 

910    K«K-1  SSAP    564 

C  SSAP    565 
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I»NMB  SSAP    566 

00   920    L-l.LL  SSAP    567. 

K«(L-1)*NEB  SSAP    568 

00   920    J-l.NEQB  SSAP    569 

I- 1*1  SSAP    570 

K-K+l  SSAP    571 

920    B<K)  =  A<  I  )  SSAP    572 

C  SSAP    573 

00    955    I=1,NE0B  SSAP    574 

J=NEQB+l-I  SSAP    575 

MAX=MAXB<J)  SSAP    576 

IF    (A(J).EO.O.)    GO  TO    955                                                                                                          SSAP    577 

DO    950    L=l tLL  SSAP    578 

KK=J+< L-l )*NEB  SSAP    579 

JJ=KK+1  SSAP    580 

IL=J+NEQB  SSAP    581 

C=B(KK)  SSAP    582 

00   940    11=  IL,MAX,NEQB  SSAP    583 

C=C-A( II  )»B( JJ)  SSAP    584 

940    JJ=JJ+1  SSAP    585 

950    B(KK)=C  SSAP    586 

955   CONTINUE  SSAP    587 

C  SSAP    588 

1=0  SSAP    589 

DO    960    L=1,LL  SSAP    590 

K=(L-1)*NEB  SSAP    591 

DO    960    J=1,NE0B  SSAP    592 

K=K+1  SSAP    593 

1=1+1  SSAP    594 

960   A<  I)=B(K)  SSAP    595 

C  SSAP    596 

WRITE    (NRSTI     ( A < I ) , I =1 , LS 1  SSAP    597 

1000    CONTINUE  SSAP    598 

C SSAP    599 

RETURN  SSAP    600 

END  SSAP   601 

SUBROUTINE    STRESS(STR,B,D,NEOB,LB,LL,NEOtNBLOCK)  SSAP    602 
IMPLICIT    REAL*8     (A-H.O-Z) 

INTEGER    ISYSCR.ISYSLP  i  ISCRF 1, I SCRF2, I SCRF3 , I SCRF4, I SCRF7, 1SCRF8, 
1I-SCRF9 

COMMON/ I NOUT/ ISYSCR.ISYSLP, ISCRF1 , I SCRF2 , I SCRF3, I SCRF4, I SCRF 7, 
HSCRF8f  1SCRF9 

C  SSAP    603 

DIMENSION    D(NEQ,LB),B(NEQB,LL>,  STR(4,LL)  SSAP    604 
COMMON    /ELPAR/    NPAR ( 14 ) ,NUMNP ,MBAN0 tNELT YP ,N1 , N2, N3 , N4, N5, MTOT .MEOSS AP    605 

COMMON    /JUNK/     LT.LH  SSAP    606 

C  SSAP    607 
REAO    ( ISCRF8)     STR 

NT=(LL-1)/LB   +1  SSAP    609 

LH=0  SSAP    610 

REWIND    ISCRF3 

C  SSAP   612 

DO  1000  11=1, NT  SSAP  613 

C  SSAP  614 

LT    =LH+1  SSAP    615 

LLT=1-LT  SSAP    616 

LH=LT+LB-1  SSAP    617 

IFUH.GT.LL)    LH  =  LL  SSAP    618 

C  SSAP    619 

C              MOVE    DISPLACEMENTS  INTO    CORE    FOR    LB    LOAD    CONDITIONS                                          SSAP    620 

C  SSAP    621 

REWIND     ISCRF2 

IF     (NDYN.E0.3)    REAO     (ISCRF2) 

NO=NE0B*NBLOCK  SSAP    624 

DO    200    NN=1  .NBLOCK  SSAP    625 
REAO    ( ISCRF2)    B 

N=NEOB  SSAP    627 

IF    (NN.EQ.l)    N=NEO-NO+NEOB  SSAP    628 

NO=NO-NEOB  SSAP    629 

DO    200    J=l  ,N  SSAP    630 

I=NO+J  SSAP    631 

00    200    L=LT,LH  SSAP    632 

K=L+LLT  SSAP    633 

200   D<I ,K)=B(J,L)  SSAP    634 

LK=LH-LT+1  SSAP    635 

C  SSAP    636 

C               CALCULATF    STRESSES  FOR    ALL    ELEMENTS    FOR    LB    LOAD   CONDITIONS                       SSAP    63  7 

C  SSAP    638 

REWIND     ISCRF1 


010 


00    1000    M«l,NbLTYP  SSAP    640 
READ    ( ISCRF1 )    NPAR 

MTYPE=NPAR(1I  SSAP    642 

NPAR(  1>  =  0  SSAP    643 

CALL    ELTYPE(MTYPE)  SSAP    644 

1000    CONTINUE  SSAP    645 

C  SSAP    646 

RETURN  SSAP    647 

END  SSAP    648 

SUBROUTINE    CALBAN(MBANO,NDIF,LM ,XM,S,P,ND,NDM)  SSAP    649 

IMPLICIT  REAL*8  (A-H,0-Z> 

INTEGER    ISYSCR.ISYSLP.ISCRF 1,1 SCRF 2 , I SCRF3 , I  SCR F4, I SCRF7, 1SCRF8, 

1ISCRF9 
COMMON/INOUT/ISYSCR,ISYSLP,ISCRFl,ISCRF2,ISCRF3,I SCR F4 , I SCRF 7, 

1ISCRF8, ISCRF9 

C CALCULATES    BAND    WIDTH    AND    WRITES    STIFFNESS    MATRIX  ON    TAPE    2                    SSAP    650 

DIMENSION    LM(1  ),XM(1 ),S(NDM,NDM) ,P(NDM,4)  SSAP    651 

MIN=100000  SSAP    652 

MAX=0  SSAP    653 

DO    800    L=1,ND  SSAP    654 

IF    (LM(L).EO.O)    GO    TO    800  SSAP    655 

IF     ILM(L  I.GT.MAX)    MAX  =  LM(L)  SSAP    656 

IF    (  LM(  D.LT.MIN)    MIN=LM(L)  SSAP    657 

800    CONTINUE  SSAP    658 

NDIF=MAX-MIN+1  SSAP    659 

IF    INDIF  .GT.MBANO)    MBAND  =  NDIF  SSAP    660 

LRD=l+ND*(ND+6)  SSAP    661 
WRITE     ( ISCRF2)    LRD.ND  ,  (LM( I  ) , I  =  1 ,ND ) , LRD, NO, ( LM( I  ) , 1  =  1 , ND) , ( ( S(  I , J 

1)  ,1=1, NO) ,J  =  1,ND),  ((P(I  ,J  ),I  =  1,N0), J=l,4), (XM(I  ) ,1  =  1, NO) 

RETURN  SSAP    664 

END  SSAP    665 


SUBROUTINE    STRSC(STR,D,NEO,NTAG)  SSAP    666 
IMPLICIT    REAL*8     (A-H.O-Z) 

INTEGER    ISYSCR,ISYSLP,ISCRF1,ISCRF2,ISCRF3,ISCRF4,ISCRF7, ISCRF8, 
1ISCRF9 

COMMON/INOUT/ISYSCR,ISYSLP,ISCRF1,ISCRF2,ISCRF3,ISCRF4,I  SCRF 7, 
1  ISCRF8.I SCRF9 

DIMENSION    STRI4.1 ) ,D(NE0,1 )  SSAP    667 
COMMUN    /JUNK/    LT,LH,L,LZ,SG(20) ,SIG(7), EXTRA! 150) 

COMMON    /EM/    NS,ND,LM(4H ),B(48,48),TI (48,4)  SSAP    669 

SSAP    670 

IF    (NTAG.EO.O)    GO    TO    800  SSAP    671 

LL=L-LT+1  SSAP    672 

00   300    1=1, NS  SSAP   673 

SG( 1)=0.0  SSAP    674 

DO    300    J=l,4  SSAP   675 

300    SG<  I)  =  SG(I)  +THI  ,J)*STR(J,L>  SSAP    676 

00    500    J=l  ,ND  SSAP    677 

JJ=LM(J>  SSAP    678 

IF(JJ.EO.O)    GO    TO    500  SSAP    679 

DO    400    1=1, NS  SSAP    680 

400    SG(  1  )  =  SG(  I  )+B(l  ,J)*OUJ,LL)  SSAP    681 

SSAP    682 

500   CONTINUE  SSAP    683 

GO    TO    900  SSAP    684 

800   READ    (ISCRF1)    ND ,NS , ( LM I  I  )  ,  1  =  1  ,ND  ) ,  (  I  BI  I  ,  J)  ,  I  =  1 ,  NS ) , J= 1 , ND)  , 
1UTK  I, J  ),I  =  1,NS),J  =  1  ,4) 

900    RETURN  SSAP    687 

ENO  SSAP    688 


SUBROUTINE    TRUSS  TRUS  1 

IMPLICIT    REAL*8    (A-H,0-Z) 

INTEGER    ISYSCR.ISYSLP.ISCRF 1,1 SCRF2 , I SCRF3 , I SCRF4, I SCRF7, ISCRF8, 
1ISCRF9 

C0MM0N/IN0UT/ISYSCR,ISYSLP,ISCRF1 , I SCRF 2, I SCRF 3, I SCRF4, I SCRF 7, 
1ISCRF8.ISCRF9 

TRUS  2 

COMMON    All)  TRUS         3 

COMMON    /ELPAR/    NPAR  (14  )  ,NUMNP .MBAND .NELTYP ,N1 ,N2, N3 , N4 ,N5, MTOT , NEOTRUS  4 

COMMON    /    JUNK    /    LT.LH.L.LZ ,SIG( 20) 

TRUS  6 

IFINPARd  )  .EO.O)    GO   TO    500  TRUS         7 

N6«N5+NUMNP  TRUS  8 

N7    =N6*NPAR(3)  TRUS         9 
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N8    «N7*NPARI3) 
N9   «NB-fNPAR(3) 
N10»N9*NPAR ( 3) 
MM=N10+NPAK(3)-MT0T 
IF(MM.GT.O)     CALL    ERROR(MM) 
CALL    RUSS(A<N1»,A(N2>,AIN3),A<N4),A<N5),AIN6>,A{N7),AIN8),A<N9), 

A(N10>, NUMNP) 
RETURN 

500   WRITE    (  ISYSLP, 2002) 

NUME=NPAR(2) 

00    800    MM=1,NUME 

CALL    STRSC     ( A( N 1 > , A (N3 ) ,NEQ, 0 ) 

WRITE    I  ISYSLPt2001) 

DO    800    L=LT ,LH 

CALL    STRSC     < A (Nl ) , A ( N3 ) ,NEO. 1 ) 

WRITE     ( ISYSLPt3002)    MM ,L , S IG ( 1 ) ,S IG< 2  ) 
800   CONTINUE 

RETURN 


2001  FORMAT 

2002  FORMAT 

3002    FORMAT 
END 


</> 

(//23H         TRUSS    MEMBER    ACTIONS    // 

46H0    MEMBER  LOAD  STRESS 

<2I8,F15.5,F15.3> 


FORCE       ) 


TRUS 

10 

TRUS 

11 

TRUS 

12 

TRUS 

13 

TRUS 

14 

TRUS 

15 

TRUS 

16 

TRUS 

17 

TRUS 

18 

TRUS 

20 

TRUS 

21 

TRUS 

22 

TRUS 

24 

TRUS 

25 

TRUS 

27 

TRUS 

28 

TRUS 

29 

TRUS 

30 

TRUS 

31 

TRUS 

32 

TRUS 

33 

TRUS 

34 

SUBROUTINE    RUSS     < ID ,X ,Y ,Z ,T , E .THERM , DEN , ARE A, WT, NUMNP) 

IMPLICIT    REAL*8     (A-H.O-Z) 

INTEGER    ISYSCR,ISYSLP,ISCRF 1,1 SCRF 2, I SCRF3 , I SCRF4, I  SCR F7,  ISCRF8, 
1ISCRF9 

COMMON/INOUT/ISYSCR.ISYSLP.I SCRF 1 , 1 SCRF 2 , I SCRF 3, 1  SCR F4, I SCRF 7, 
11SCRF8.ISCRF9 

DIMENSION    X(l ),Y(1 ),Z(1 ), ID (NUMNP, 1 ) ,E < 1 ) , THERM( 1 ) ,CEN( 1),AR 

.    ,T(1),WT(1  ) 

COMMON  /ELPAR/  NPAR ( 14 ) ,NNNNN ,MB AND .NELTYP , Nl , N2, N3, N4, N5, MT 
COMMON  /EM/ LM<24),ND,NS,S< 24,24  ),P< 24,4 ),XM( 24) ,ST( 12,24) ,TT 
COMMON    /JUNK/     EMUL (4, 4), I , J,< ,L,M,N, II ,  JJ  ,  KK , MTY? E, TEMP, OX, D 

1    XL2,XL,XX,YY,F,FT,FX,FY,FZ,MIN,MAX,NDIF,KKK, TEM.MTYP 
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CONTROL     INFORMATION    AND    MEMBER    PROPERTIES 

NUME  =  NPAR<2  ) 
NUMMAT=NPAR(3) 

WRITE     < ISYSLP, 2000)    NUME.NUMMAT 
WRITE    ( ISYSLP,    2001) 
DO    10     I=1,NUMMAT 

READ    < ISYSCR.1001 )    N ,E ( N ) , THE RM < N ) ,OEN (N ) , AR EA< N) , WT< N> 
10    WRITE     ( ISYSLP, 2002)    N ,E (N ) ,T HERM (N ) , DEN (N ) , ARE A( N ) ,WT  (  N) 

ELEMENT    LOAD   MULTIPLIERS 

READ    ( ISYSCR.1003)    EMUL 
WRITE    ( ISYSLP, 2003)    EMUL 

ELEMENT     INFORMATION 
WRITE    (ISYSLP,    2005) 

N=l 
100    READ    (  ISYSCR.1004)    M , 1 1 ,J J ,MTYP ,TEM, KK 

IF(KK.EO.O)     KK=1 
120    IF(M.NE.N)    GO    TO    200 

1=1  I 

JoJ> 

MTYPE=MTYP 

REFT=.TEM 

KKK«=KK 

1.    FORM    ELEMENT    STIFFNESS   AND    STRESS    MATRICES 

200    DX=X( I)-X(J) 
DY=Y(I )-YI J) 
DZ=Z( I)-Z( J) 
XL2=DX»DX+DY*DY+DZ«0Z 
XL-OSORT (XL2) 

XX»E(MTYPE  )*AREA(MTYPE)*XL 
ST(  1,  D-0X/XL2 
ST< 1  ,2)=DY/XL2 
ST( l,3)=OZ/XL2 


TRUS 

36 

EA(1)  TRUS 

37 

TRUS 

38 

OT.NEOTRUS 

39 

(12,4)TRUS 

40 

Y,OZ,  TRUS 

41 

TRUS 

42 

TRUS 

43 

TRUS 

44 

TRUS 

45 

TRUS 

46 

TRUS 

47 

TRUS       50 


TRUS 

53 

TRUS 

54 

TRUS 

55 

TRUS 

58 

TRUS 

59 

TRUS 

61 

TRUS 

62 

TRUS 

64 

TRUS 

65 

TRUS 

66 

TRUS 

67 

TRUS 

68 

TRUS 

69 

TRUS 

70 

TRUS 

71 

TRUS 

72 

TRUS 

73 

TRUS 

74 

TRUS 

75 

TRUS 

76 

TRUS 

77 

TRUS 

79 

TRUS 

80 

TRUS 

81 

TRUS 

82 
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250 


300 


400 


1001 
100  3 
1004 
2000 

2001 

200  2 
2003 


2004 
2005 


STI1.4)  —  ST(l.l) 
ST(1,5)--ST(1,2) 
ST(1,6>— STU.3) 

DO   300    L-lf6 

YY-STI  1,L)*XX 

DO   250    K=Lf6 

S(K,L)«=ST<1  ,K)*YY 

S(L,K)=S(K,L) 

ST< 1,L)=E(MTYPE)*ST(1 ,L) 

ST(2,L)«AREA(MTYPE I*STI1.L) 

2.    INERTIA    AND   THERMAL    LOADS 

F=WT(MTYPE )*XL/2. 

TEMP=(T( I)+T( J) )*0.5    -    REFT 

FT"=-TEMP*THERM(MTYPE  )*E  (KTYPE  )  *  ARE  A(MTYP  E) 

FX=DX*FT/XL 

FY=DY»FT/XL 

FZ=DZ*FT/XL 


L  =  l,4 

=EMUL(L,4 )*FT 
=TT(2,L)/AREA(MTYPE) 
EMULtLtl  )*F-EMUL <L.4)*FX 
EMUL(Lt2)*F-EMUL(Li4)*FY 
EMULILf 3)*F-EMUL (Lt4)*FZ 
EMUL<L.l)*F+EMUL(Lt4)*FX 
EMUL<Lt2)*F+EMUL ILi4)*FY 
EMUL<Li3)*F  +  EMUL<l.,4)*FZ 
TYPE)*AREA(MTYPE )*XL/2. 
L=l,6 


3.    FORM    LOCATION    MATRIX    AND    COMPUTE    BAND    WIDTH 

DO  400    L=lt3 
LM(-L)  =  IDII,L) 

LMIL+3)=ID<JtL> 

ND=6 
NS=2 
NDM=24 

CALL    CALBAN     ( MBAND , ND IF ,LM , XM , S,P ,ND tNDM ) 

WRITE    (ISCRF1)    N0,NSt(LM(L  ),L=l.ND)t (( ST( L,  K > , L= 1 , NS ) t K= 1 ,  ND) , 
l((TT(LtK)tL=l,NS>,K=l,4> 

4. CHECK    FOR    MORE    ELEMENTS 

WRITE    ( lSYSLPt2004)    N 1 1 tJ »MT YPE  ,REFT,NDI F 

IF    (N.EO.NUME)    RETURN 

N=N*  1 

I=!+KKK 

J=J+KKK 

IF(N.GT.M)    GO    TO    100 

GO   TO    120 

FORMAT     (15.5F10.0I 

FORMAT     (4F10.0) 

FORMAT     (4I5f  lFlO.Ot 15) 

FORMAT     (///25H1NUMBER    OF    TRUSS    MEMBERS=    15/ 
1    25H    NUMPER    OF    DIFF.    MEMBERS=     15) 

FORMAT     I///1X.4HTYPE tl4X,lHEf 10X,5HALPHA, 12X.3HDEN, 11X.4HAREA 
1     11X.4HWT/L     ) 

FORMAT     (I5.5E15.7) 

FORMATI///25H    ELEMENT    LOAD    MULTIPLIERS    /    20X , 1HA,  14X, 1HB, 14X, 1 HC t 

1  14X,1H0»/6H    X-DIR4E15.6/    6H    Y-DIR4E15.6/    6H    Z-DIR4E15.6/ 

2  6H      TEMP4E15.6) 
FORMAT     (4I6,F10.2«I7) 

FORMAT     I///42H1  N  I  J       TYPE  TEMP         BAND       ) 

END 


DO  350 

TT(2tD 

TT  (  1 , L ) 

PU.L>  = 

P(2,L)= 

PC3,L>= 

PI4,L)= 

P(5,L)= 

350 

P(6,L)= 
F=DEN(M 
DO  375 

375 

XM<L)=F 

C 

C 

3.  FORM 

C 
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87 
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TRUS 
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SUBROUTINE    BEAM  BEAM 

IMPLICIT    REAL»8     (A-H.O-Z) 

INTEGER    ISYSCRtlSYSLPt ISCRF1.I SC RF 2, I SCRF 3, I  SCR F4, I SCRF 7, ISCRF8, 
1ISCRF9 

COMMUN/INOUT/ISYSCR.ISYSLP.ISCRF 1 , I SCRF 2 1 I SCRF3, I  SCR F4,  I  SCRF 7, 
1ISCRF8|ISCRF9 

BEAM 

COMMON  /ELPAR/  NPAR (14 )  .NUMNP , MBAND .NELTYP ,N1 , N2, N3 ,N4 ,N5, MTOT , NEOBE AM 


Ct-13 


COMMON    /    JUNK    /    LTiLH.L .LZ.SIGI 20) 

COMMON    A (II 

c 

IF(NPAR  (1 I.EO.O)    GU    TO    500 
N6=N5+NPAR 15 >     +    NUMNP 
N7=N6+NPAR(5) 
NB=N7+NPAR(5) 
N9=N8+12*NPAR(4> 
N10=N9+6*NPAR (3 ) 

IF(N10.GT.MT0T )    CALL    E RROR ( N 10-MTOT) 

CALL    TfcAM(NPAR<2> ,NPAR ( 3 ) ,NPAR (4 ) ,NPAR < 5 ) , A< Nl ) , A( N2 ) , A( N3) , 
1       A(N4),A(N5),A(N6),A(N7),A(NH),A(N9> , NUMNP ,MB ANO ) 
RETURN 

500   WRITE    (  ISYSLP.2002) 

NUME=NPAR(2  ) 

DO    800    MM=1,NUME 

CALL    STRSC     ( A( N 1 ) , A <N3 ) ,NEQ, 0 ) 

WRITE    (  1SVSLP.2001 ) 

DO    800    L=LT ,LH 

CALL  STRSC  1  A  1 Nl ) , A ( N3 ) ,NE 0, 1 ) 

WRITE     ( ISYSLP.3002)    MM ,L , ( SIG ( I  ) , I =1 , 12 ) 
800   CONTINUE 

RETURN 

2001  FORMAT     (/) 

2002  FORMAT! /29H0..... BEAM    FORCES    ANO    MOMENTS// 

.     10H0BEAM    LOAD    5X    5HAXIAL       2 < 7X ,5HSH6 AR  )  ,5X    7HT0RSI0N 
.      2(5X,7HBENDING)/     10H      NO.       NO.       8X       2HR1       10X       2HR2       10X 
.       2HR3    10X    2HM1     10X    2HM2     10X    2HM3) 
3002    FORMAT     (I5,I4,1PE11 .3.5E12.3/8X ,6E 12.3/) 
END 

SUBROUTINE    TEAM(NBEAM,NUMETP,NUMFIX,NUMMAT,ID,X,Y,Z, E,G,RO, 
•SFT,    COPROP. NUMNP, MBAND) 

IMPLICIT    REAL*8     (A-H.O-Z) 

INTEGER    ISYSCRt ISYSLPiISCRFl, ISCRF2, I SCRF 3, I SCRF4, I SCRF7, ISCRF8, 
1ISCRF9 

C0MM0N/IN0UT/ISYSCR,ISYSLP,ISCRF1,ISCRF2,ISCRF3,ISCRF4,ISCRF7, 
1 ISCRF8.I SCRF9 

;  FORMS    3-D   BEAM    STIFFNESS    AND    STRESS    ARRAYS 

COMMON/ EM/ LM« 24) ,ND ,NS ,ASAI 24 ,24 ) ,RF ( 24 , 4 ) ,XM( 24) , SA( 1 2,24 ) , 

SFI12.4) 
01 MEN  SI ON    X(1),Y(1),Z(1), ID ( NUMNP, 1) ,E( 1),G(1 ) ,SFT(NUMF1X, 1) 

,C0PR0P(NUMETP,1  )  ,R0( 1  ),EMUL(3,4) 
COMMON    /NEWB/    LC (4 ) , T ( 3, 3 ) , JK (6 ) ,MELTYP , I DUM, DL , MATTYP 
DIMENSION     I  LC (4  ),T  I  ( 3,3 ),TJ(3,3),STIF( 7 22), TS (2, 2), LS(4) 
EQUIVALENCE     «STIF,LM) 

INITIALIZATION 

WRITE     ( ISYSLP.2005)    NBEAH .NUMETP ,NUMF IX .NUMMAT 
N  =  0 

DO    5    1=1,1058 
5   STIF(I)=0. 

READ    AND    PRINT    MATERIAL    PROPERTY    DATA 

WRITE    ( ISYSLP.2001) 
DO    10    1=1, NUMMAT 

READ    (  ISYSCR.1001 )    N  ,E ( N  )  ,G (N ) ,R0 (N  ) 
WRITE     (  ISYSLP.2002)    N  ,E (N ) ,G ( N  )  ,R0 ( N ) 
10   G(N)=0.5*E(N)/(1.+G(N>) 

READ    AND    PRINT    GEOMETRIC    PROPERTIES   OF    COMMON    ELEMENTS. 

WRITE    (  ISYSLP.2003) 

DO    30     1=1, NUMETP 

READ    ( ISYSCR.1002)    N , (COPROP (N , J ) , J= 1 ,6 ) 

IF( (COPROP (N,l I.NE.O.O). AND. (COPROP ( N ,4 ). NE .0. 0) . AND. 
1  (C0PR0P(N,5  I.NE.O.O). ANO. (COPROP(N, 6). NE. 0.0) )       GO   TO    20 

WRITE     ( ISYSLP.2013) 

CALL    EXIT 
20    WRITE     ( ISYSLP.2004)    N , (COPROP (N , J ) , J= 1 ,6 ) 
30   CONT INUE 

ELEMENT    LOAD    MULTIPLIERS 

READ    ( ISYSCR.1006)     ( ( EMUL ( I , J ) , J' 1 ,4 ) , I = 1 , 3) 
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5 
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6 

BEAM 

7 

BEAM 

8 

BEAM 

9 

BEAM 

10 

BEAM 

11 

BEAM 

12 

BEAM 

13 

BEAM 

14 

BEAM 

15 

BEAM 

16 

BEAM 

17 

BEAM 

19 

BEAM 

20 

BEAM 

21 

BEAM 

23 

BEAM 

'24 

BEAM 

26 

BEAM 

27 

BEAM 

28 

BEAM 

29 

BEAM 

30 

BEAM 

31 

BEAM 

32 

BEAM 

33 

BEAM 

34 

BEAM 

35 

BEAM 

36 

BEAM 

37 

BEAM 

38 

BEAM 

39 

BEAM 

40 

BEAM 

41 

BEAM 

42 

BEAM 

43 

BEAM 

45 

BEAM 

46 

BEAM 

47 

BEAM 

48 

BEAM 

49 

BEAM 

51 

BEAM 

52 

BEAM 

53 

BEAM 

54 

BEAM 

55 

BEAM 

56 

BEAM 

58 

BEAM 

61 

BEAM 

62 

BEAM 

63 

BEAM 

64 

BEAM  66 

BEAM  68 

BEAM  69 

BEAM  71 

BEAM  73 

BEAM  74 

BEAM  75 

BEAM  76 


OU 


BEAM 

79 

BEAM 

80 

BEAM 

61 

BEAM 

82 

WRITE    ( ISYSLP.2006)     ( I EHUL I  I . J) , J= 1 1 4 ) , 1 ■ 1 1 3) 
C 

C  READ    AND    PRINT    FIXED    END    FORCES    IN    LOCAL    COORDINATES 

C 

IFJNUMFIX    .EO.    01    GO    TO   56 

WRITE    (  ISYSLP.2010) 

DO    55     1=1,NUMFIX  BEAM      84 

READ    ( ISYSCR.1005)    N  ,  ( SFT <N, J > , J=  1, 12) 

55  WRITE    USYSLP.2011)    N , (SFT ( N , J > , J= 1 , 1 2  ) 

56  CONT  INUE 
C 

C  READ    AND    PRINT    ELEMENT    DATA.    GENERATE    MISSING    INPUT. 

C 

WRITE    (  ISYSLP, 40001 

L=0 
60    KKK=0 

READ    CISYSCR.3000HNEL  ,  INI  ,  INJ,  INK  ,  IM  AT,  I  MEL,  ILC,  INELKI  ,  INELKJ,  INC 

IF    (  INEL.NE.l)    GO    TO    15 

NI=INI 

NJ=INJ 

NK=INK 
15    IF    ( INC.EO.O)     INC=1 

65  L=L+1 
KKK=KKK+1 
ML=INEL-L 
IF    (ML)        66,67,68 

66  WRITE    ( ISYSLP, 4003)     INEL 
CALL    EXIT 

67  NEL=INEL 

NI  =INI 

NJ  =INJ 

NK=INK 

MATTYP=IMAT 

MELTYP=IMEL 
DO    90    1=1,4 

90  LC(I 1= ILC ( I) 

NL0AD=LC(1 >*LC(2)+LC(3)+LC(4) 
NEK0DI="INELK1 
NEKODJ= INELKJ 
00  91    1=1,3 

91  T(2,I )=T1(2,I) 
GO  TO  69 

68  NEL=INEL-ML 

NI  =IN+KKK*INCR 

NJ  =JN+KKK*INCR 

69  CONTINUE 
WRITE    ( ISYSLP, 4001 )    NEL,NI,NJ,NK,MATTYP,MELTYP,LC,NEKODI,NEKODJ 

C 

74  DX=X(NJ)-X(NI) 
0Y=Y(NJ)-YIN1 ) 
DZ=Z(NJ)-Z(NI) 
DL=DS0RT<DX«DX+0Y*0Y*DZ*DZ ) 

IF(DL)    75,75,76  BEAM    130 

75  WRITE    (  ISYSLP,4005)    NEL 
CALL    EXIT 

C 

C  FORM    GLOBAL    TO    LOCAL   COORDINATE    TRANSFORMATION. 

C 

76  T(1,1J=DX/DL 
T(1,2)=DY/DL 
T( 1,3)=DZ/DL 

C 

C  COMPUTE    DIRECTION   COSINES    OF    LOCAL   Y-AXIS 

C 

A1=X( NJ)-X(NI) 

A2=Y(NJ)-Y(NI ) 

A3=Z(NJ)-Z(NI» 

Bl=X(NK)-X(NI ) 

B2=Y(NK)-Y(NI) 

B3=Z(NK)-Z(NI ) 

AA=A1*A1+A2»A2+A3*A3 

AB=A1#B1+A2*B2+A3«B3 

U1=AA*B1-AB»A1 

U2=AA»B2-AB»A2 

U3=AA*B3-AB»A3 

UU=U1*U1+U2*U2*U3*U3 

UU=DSORT (UU ) 

IF  IUU.GT.O.)  GO  TU  40  BEAM  155 

WRITE  ( ISYSLP,4002)  INEL 

STOP  BEAM  157 

40  T(2,1)=U1/UU  BEAM  158 
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BEAM 
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BEAM 
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BEAM 
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BEAM 
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BEAM 

123 

BEAM 

125 

BEAM 

126 

BEAM 

127 

BEAM 

128 

BEAM 

132 

BEAM 

133 

BEAM 

134 

BEAM 

135 

BEAM 

136 

BEAM 

137 

BEAM 

138 

BEAM 

139 

BEAM 

140 

BEAM 

141 

BEAM 

142 

BEAM 

143 

BEAM 

144 

BEAM 

145 

BEAM 

146 

BEAM 
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BEAM 
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BEAM 
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BEAM 

151 

BEAM 
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BEAM 
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T  <2,2)=U2/WJ  BEAM  159 

TI2,3)=U3/UU  BEAM  160 

T<3,1)=T!  1  ,2>*T(2,3)-T(  1,3)<-T<2,2)  BEAM  161 

T(3,2)=T <1,3)»T<2,1  )-T!l,l)*T (2,3)  BEAM  162 

T<3,3)=T(1,1)*T(2,2)-T!1,2)*T<2,1>  BEAM  163 

C  BEAM  16* 

C      CHECK  IE  NEW  STIFFNESS  NEEDED  BEAM  165 

C  BEAM  166 

IF  (NEL.GE.l)  GO  TO  80  BEAM  167 

IF  IDABS(DS-DL).GT.DL/100.  )  GO  TO  80 

IF     « (MT.NE .MATTYP) .OR. (ME.NE.MELTYP ) )     GO     TO    80  BEAM    169 

IF     (( JKI1 I.NE.NEKODI ) .OR. ( JK(2 ) .NE.NEKODJ) )    GO    TO    80  BEAM    170 

00    81     1=1 ,*  BEAM    171 

IF     (LSI  I  ).NE  .IX  (  I  )  )    GO    TO    80  BEAM    172 

81  CONTINUE  BEAM  173 
00  82  1=1,2  BEAM  17* 
DO   82    J=l,2  BEAM    175 

IF     (DABSITSI I ,J)-T(I ,J 1 ).GT .OABS(T( I , Jl/100.) )    GO   TO    80 

82  CONTINUE  BEAM  177 
GO    TO    185  BEAM    178 

C  BEAM    179 

80    DS=DL  BEAM    180 

MT=MATTYP  BEAM    181 

ME=MELTYP  BEAM    182 

DO    77    1=1 ,2  BEAM    183 

00    77    J=l,2  BEAM    18* 

77  TSII ,J)=T( I, J)  BEAM  185 
DO    78    1=1,*  BEAM    186 

78  LSI  I  )  =  LC(  I  )  BEAM  187 
JK(1)=NEK0DI  BEAM  188 
JK(2)=NEK0DJ  BEAM    189 

C  BEAM    190 

C      FORM  NEW  STIFFNESS  BEAM  191 

C  BEAM  192 

CALL  NEWBM  (E,G,RO,COPROP,SFT ,NUMF I  X .NUMETP i  BEAM  193 

C  BEAM  19* 

C  ADD    GRAVITY    LOADING    ...     POINT     LOADS    ONLY    COMPUTED  BEAM    195 

C  BEAM    196 

DO    180    1  =  1  ,3  BEAM    197 

DO    180    J=l,*  BEAM    198 

RF(  I  ,J)=RFII ,J  1+EMULI I , JI*XM( I  )  BEAM    199 

180    Rp-it  1+6, J  )=RFI  I+6,J)+EMUL<  I  ,  J)*XM(  1+6)  BEAM    200 

C  BEAM    201 

C      FORM  ELEMENT  LOCATION  MATRIX  BEAM  202 

C  BEAM  203 

185    CONTINUE  BEAM    20* 

DO    170    M=l  ,6  BEAM    205 

LMIM)=ID(N1 ,M)  BEAM    206 

LM(M+12)=0  BEAM    207 

LM(M+18)=0  BEAM    208 

170    LMIM+6)=ID(NJ,M)  BEAM    209 

C  BEAM    210 

NS=12  BEAM    211 

ND=12  BEAM    212 

C  BEAM    213 

C  TRANSFORM    TO    MASTER    DEGREES    OF    FREEDOM  BEAM    21* 

C  BEAM    215 

CALL    SLAVE     (X  ,Y ,Z  ,  ID  ,NUMNP,NI  ,NJ  )  BEAM    216 

C  BEAM    217 

C      WRITE  ELEMENT  INFORMATION  ON  TAPE  BEAM  218 

C  BEAM  219 

NDM=2*  BEAM  220 

CALL  CALBAN  ( MBAND  ,ND IF , LM , XM , ASA, RF ,ND,NDM )  BEAM  221 

WRITE  (ISCRF1)  ND.NS,  (LMI I ) , 1  =  1, ND)  ,  I  (SAI I ,J)  ,1  =  1, NS) , J=1,N0) , 

1(  (SFI  I  ,-J),I  =  l,NS),J  =  l,*> 

C  BEAM  22^ 

C  CHECK  FOR  LAST  ELEMENT  BEAM  225 

C  BEAM  226 

IF     (NBEAM-NEL)        66,500,260  BEAM    227 

260    CONTINUE  BEAM    228 

IF    (ML.GT.O)       GO    TO    65  BEAM    229 

IN  =INI  BEAM    230 

JN  =INJ  BEAM    231 

INCR= INC  BEAM    232 

GO   TO   60  BEAM    233 

500    RETURN  BEAM    23* 

C  BEAM    235 

1001  FORMAT! I 5.3F10.0 >  BEAM    236 

1002  FORMAT!  15 ,6F10.0)  BEAM    237 

1005  FORMAT! 15, 6F  10  .0/F 1 5  .0  ,5F 1 0. 0 )  BEAM    238 

1006  FORMAT     (*F10.0)  BEAM    239 
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2001  FORMAT! 55H1MATERIAL  YOUNG  S  PU1SS0N  S  MASS  BEAM  240 
1                   /55H                                    MUOULNS                     RATIO                                 DENSITY  IBFAM    241 

2002  F0RMAT!1H    ,  I  5  ,3X  ,F1  2  .0  ,F  1  4.  5  ,  F  14  .5  )  BEAM    242 

2003  FORMAT! 1H1/  BEAM  243 
.      26H    BEAM    GEOMETRIC    PROPERTIES//  BEAM    244 

1  4BH    ELEMENT                   AREA                         AREA                         AREA  BEAM    245 

2  60H     INERTIA                INERTIA                INERTIA  BEAM    ?46 

3  /    48H       TYPE                              X                                 Y                                 Z  BEAM    247 

4  30H             X                                 Y                                 Z  )BEAM    248 

2004  FORMAT! 1H     ,  15 ,2X ,6F12  .3 )  BEAM    249 

2005  F0RMATI39H1 THREE    DIMENSIONAL    BEAM    ELEMENTS//  BEAM    250 

.       36H      NUMBER    OF    BEAMS                                                  =  ,15/  BEAM    251 

.       36H       NUMBER    OF    GEOMETRIC    PROPERTY    SETS=,I5/  BEAM    252 

.       36H      NUMBER    OF    FIXED    END    FORCE    SETS          =iI5/  BEAM    253 

.       36H       NUMBER    OF    MATERIALS                                          =  ,15)  BEAM    254 

2006  FORMAT! ///25H  ELEMENT  LOAD  MULTIPLIERS  /  20X , IHA, 1 4X, 1HB, 14X, 1 HC ,  BEAM  255 
1     14X,1HD,/6H    X-DIR4E15.6/    6H    Y-D1R4E15.6/    6H    Z-DIR4E15.6/     )  BEAM    256 

2010  FORMAT!  1H1  ,1H  ,  BEAM  257 
I  30X40H  FIXED  END  FORCES  IN  LOCAL  COORDINATES  BEAM  258 
2//53H  TYPE  NODE  FORCE  X  FORCE  Y  FORCE  Z  BEAM  259 
3                                                        35H    MOMENT     X             MOMENT    Y             MOMENT     Z  1BEAM    260 

2011  FORMAT!  1H     ,  I  3 f6X  ,  1HI , 3X ,6F1 2 .3/1H    ,9X , 1H J, 3X ,6F1 2. 3/ )  BEAM    261 
2013    FORMAT! 1H0/  BEAM    262 

1  60H    SECTION    PROPERTIES    OTHER    THAN    SHEAR    AREAS    MAY    NOT    BE    SPECIF    BEAM    263 

2  34HIED    AS    ZERO.    EXEC0T10N    TERMINATED.)  BEAM    264 
3000    FORMAT     <10I5,2I6,IB)  BEAM    265 

4000  FORMAT! 1H1/  BEAM  266 
.  5H0BEAM  5X  5HN0DES  5X  5H  MATL  5H  GEOM  5X  10HELEM  LOADS  4X  10X  BEAM  267 
.  12H  END  CODES  /  5H  NO  4X  1HI  4X  1HJ  4X  1HK  5H  NO  5H  NO  BEAM  268 
.       4X    IHA    4X    1HB    4X     1HC    4X    1 HD    9X     1HI    9X     1HJ)  BEAM    269 

4001  FORMAT     11015,2110)  BEAM    270 

4002  FORMAT  I9H0BEAM  NO  ,15,  26H  K  NODE  ON  BEAM  X-AXIS  BEAM  271 
.       26H EXECUTION    TERMINATED     )  BEAM    272 

4003  FORMAT! 36H0ELEMENT    CARD    ERROR,     ELEMENT    NUMBER=     16)  BEAM    273 

4004  F0RMATI1H  .31HN0DAL  POINT  NUMBERS  FOR  EL EMENT , I  5, 36HAR E  IDENT I CAL  .B E AM  274 
1    EXECUTION    TERMINATED.)  BEAM    275 

4005  FORMATI8H0ELEMENT , I  5 , 39H  HAS  ZERO  LENGTH.  EXECUTION  TERMINATED.)  BEAM  276 
ENO  BEAM    277 

SUBROUTINE    NEWBM!E,G,RO,COPROP,SFT,NUMFIX,NUMETP )  BEAM    278 
IMPLICIT    REAL*8     (A-H.O-Z) 

INTEGER    ISYSCR, I  SYS  LP , ISC RF 1, I SCRF 2, I SCRF3 , I SCRF4, ISCRF7, ISCRF8, 
1ISCRF9 

C0HM0N/IN0UT/ISYSCR,ISYSLP,ISCRF1,ISCRF2,ISCRF3,ISCRF4,ISCRF7, 
1ISCRF8.ISCRF9 

C  BEAM    279 

C              FORM    NEW    BEAH    STIFFNESS  BEAM    280 

C  BEAM    281 

DIMENSION    E!l >,G<1  ),R0( 1  )  .COPROP ( NUME TP , 1 ) , SFT( NUMF I  X, 1)  BEAM    282 

COMMON/ EM/ LM 124) ,ND ,NS ,AS A! 24 ,24 ) ,RF I  24 , 4 ) ,XM( 24 ) , SA (  1 2 ,24  )  ,  BEAM    28  3 

SFI 12,4)  BEAM    284 
COMMON    /NEWB/    LC«4),T(3,3),JK!6 ) ,MELT YP , I DUM, DL , MATTYP 

DIMENSION    R!12),S(12,12),C( 12)  BEAM    286 

C  BEAM    287 
DO   5    1=1,12 
DO    5    J=l,12 
5    S(I,J)=0. 

AX=C0PR0P!MELTYP,1 )  BEAM    290 

AY=C0PR0P(MELTYP,2)  BEAM  291 

AZ=C0PR0P(MELTYP,3)  BEAM  292 

\AX=C0PR0P(MELTYP,4)  BEAM    293 

AAY=C0PR0P!MELTYP,5 >  BEAM    294 

AAZ=C0PR0P!MELTYP,6)  BEAM    295 

SHPY=0.0  BEAM    296 

SHFZ=0.0  BEAM    297 

ZY=E!MATTYP )/!DL*DL)  BEAM    298 

E  IY=ZY*AAY  BEAM    299 

E1Z=ZY*AAZ  BEAM  300 

IF(AY.NE.O.O)  SHFY=6.*EIZ/ !G (M ATT YP >*AY )  BEAM  301 

1FIAZ.NE.0.0)  SHFZ=6.»EIY/(G(MATTYP)»AZ )  BEAM  302 

C0MHY=EIY/il.+2.«SHFZ)  BEAM  303 

COMMZ=EIZ/( l.+2.*SHFY)  BEAM  304 

C  BEAM  305 

C         FIXED  END  FORCES  IN  LOCAL  COORDS  BEAM  306 

C  BEAM  307 

00  73  N=l,4  BEAM  308 

M«LC!N»  BEAM  309 

IF  JM.GT.O)   GO  TO  71  BEAM  310 

DO  70  1  =  1  ,12                           ,  BEAM  311 

70  SFI  I ,N)=0.  BEAM  312 
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GO   TO    73 

71  00    72    1=1,12 

72  SFI I,N)»SFT(M,I ) 

73  CONTINUE 

FORM    ELEMENT    STIFFNESS     IN    LOCAL    COORDINATES 

Sll,l)=    FIMATTYP)*    AX/OL 

S(4,4)=    G(MATTYP)*AAX/DL 

S<2,2)=    C0MMZ»12./UL 

S<3,3>=    C0MMY*12./UL 

SI5,5)  =    COMMY*    4.*0L*<  l.+0.5*SHFZ  ) 

S(6,6)=    C0MM2*    4.*DL*( l.+0.5*SHFY) 

S(2,6)=    COMMZ*    6. 

SI3,5)=-COMMY*    6. 

00    102    1=1,6 

J=»I  +  6 
102    S( J,J)=S(I,I ) 

DO    104    1=1,4 

J=I  +  6 
104    S(I,J)=-S( 1,11 

SI  6.12)=    S(6,6)*tl.-SHFY)/(2.+  SHFY) 

SI  5, 11 )=    SI5,5)*<1.-SHFZ )/  (2.  +  SHFZ) 

S(2,12)=    SI2.6) 

SI6,    8)=-SI2,6) 

SI8,12)=-SI2,6) 

SI3,11)=    S(3,5) 

SI5,    9)=-S(3,5) 

SI9,11)=-SI3,5) 

DO    106    1=2,12 

K=l-1 

DO    106   J=1,K 
106   SII,J)=SIJ,H 

MODIFY    ELEMENT    STIFFNESS    ANO    ELEMENT    FIXEO    END    FORCES    FOR    KNOWN 
ZERO    MEMBER    END    FORCES. 

IF     HJKI1J+JM2)  I.EO.O)    GO    TO    145 
00    140    K=l ,2 
KK=JK(K) 
K 0=1 00 000 
I1=6*IK-1)+1 
12=11+5 

00    140    1=11,12 
IF"tKK.LT.KD)       GO    TO    140 
SII=S< 1,1  ) 
DO    125    N=l,12 
R(N)=S( I ,N) 
DO    130    M=l  ,12 
CIM)=SIM,I  I/S1I 
00    130    N=1,12 
SIM,N)=S(M,N)-CIM)*R{N> 
00    135    N=l ,4 
SF1«=SF( I ,N) 
DO    135    M=l  ,12 
SFIM,N)=SFIM,N)-CIM )*SFI 
KK=KK-KD 
KD=K0/10 
CONTINUE 

OBTAIN    SAI  12,12)    RELATING    ELEMENT    END    FORCES    (LOCAL)    AND 
JOINT    DISPLACEMENTS    IGLOBAL ) . 

DO    31    1=1,12 

DO    31    J=l,24 

SAI  I,J)-0. 

DO    150    LA=1,10,3 

LB«=LA*2 

00    150    MA=1,10,3 

MB=MA-1 

00    150    I=LA,LB 

DO    150    JM  =  1  ,3 

JbJM+MB 

XX  =  0. 

DO    151    K=>1,3 
151     XX=XX+SII ,K+MB)*T IK.JM) 
150    SAI I  ,J)=XX 

ELEM    STIFF    ASAI12.12)     AND    FlXtO    END    FORCES    RF(12)     IN    GLOBA 


125 


130 


135 
136 
140 
145 


31 


BEAM 

313 

BEAM 

314 

BEAM 

315 

BEAM 

316 

BEAM 

317 

BEAM 

318 

BEAM 

319 

BEAM 

320 

BEAM 

321 

BEAM 

322 

BEAM 

323 

BEAM 

324 

BEAM 

325 

BEAM 

326 

BEAM 

327 

BEAM 

328 

BEAM 

329 

BEAM 

330 

BEAM 

331 

BEAM 

332 

BEAM 

333 

BEAM 

334 

BEAM 

335 

BEAM 

336 

BEAM 

337 

BEAM 

338 

BEAM 

339 

BEAM 

340 

BEAM 

341 

BEAM 

342 

BEAM 

343 

BEAM 

344 

BEAM 

345 

BEAM 

346 

BEAM 

347 

BEAM 

348 

BEAM 

349 

BEAM 

350 

BEAM 

351 

BEAM 

352 

BEAM 

353 

BEAM 

354 

BEAM 

355 

BEAM 

356 

BEAM 

357 

BEAM 

358 

BEAM 

359 

BEAM 

360 

BEAM 

361 

BEAM 

362 

BEAM 

363 

BEAM 

364 

BEAM 

365 

BEAM 

3  66 

BEAM 

367 

BEAM 

368 

BEAM 

369 

BEAM 

3  70 

BEAM 

371 

BEAM 

3  72 

BEAM 

373 

BEAM 

3  74 

BEAM 

375 

BEAM 

378 

BEAM 

379 

BEAM 

380 

BEAM 

381 

BEAM 

3  82 

BEAM 

383 

BEAM 

384 

BEAM 

385 

BEAM 

386 

BEAM 

387 

BEAM 

388 

BEAM 

389 

L  CUOROSBEAM 

390 

c-ie 


t  BEAM  391 
00  32  1  =  1  ,24 
DO  32  J-1,24 
32  ASA( I,J)»0. 

00  160  LA*1,10,3  BEAM  394 

LB-LA-1  BEAM  395 

DO  160  MA=1,10,3  BEAM  396 

MB=MA+2  BEAM  397 

00  160  1 L-l ,3  BEAM  398 

I=IL+LB  BEAM  399 

00  160  J=MA,MB  BEAM  400 

xx"°«  BEAM  401 

DO  161  K  =  l,3  BEAM  402 

161  XX=XX*T«K,IL)»SA(K+LB,J)  BEAM  403 
160  ASA(I,J)=XX  BEAM  ^04 

C  BEAM  405 

00  165  LA=1 ,10,3  BEAM  406 

LB=LA-1  BEAM  407 

DO  165  IL=1,3  BEAM  408 

1=IL*LB  BEAM  409 

00  165  N=l,4  BEAM  410 

XX=0.  BEAM  411 

DO  162  K=l,3  BEAM  412 

162  XX=XX-T(K,IL)*SF<K+LB,N)  BEAM  413 
165  RF( I,N)=XX  BEAM  414 

C  BEAM  415 

C       FORM  MASS  MATRIX  BEAM  416 

C  BEAM  417 

XXM=R0(MATTYP)»AX*DL/2.  BEAM  418 

00  180  M=l,3  BEAM  419 

XM(M)=XXM  BEAM  420 

XM(M+3)=0.  BEAM  421 

XM(M+9)=0.  BEAM  422 

180  XM(M*6)=XXM  BEAM  423 

RETORN  BEAM  424 

END  BEAM  425 


SUBROUTINE    SLAVE    (X  ,  Y  ,2 , 1 D ,NUMNP ,N I ,N J )  BEAM    426 
IMPLICIT    REAL»8    (A-H.O-Z) 

INTEGER    ISYSCR.ISYSLP, ISCRF 1,1 SCRF2, I SCRF3 , I SCRF4, I SCRF7, ISCRF8, 
1ISCRF9 

COMMON/ 1N0UT/ I SYSCR, I S YSLP , I SCRF1 , I SCRF2 , ISCRF 3, I SCRF4 , I SCRF 7, 

1ISCRF8.ISCRF9 

C  BEAM    427 

C      PERFORMS  SLAVE. ..MASTER  DISPLACEMENT  TRANSFORMATION  BEAM  428 

C         «  FOR  NOOES  CONNECTED  TO  BEAM  ELEMENTS  ONLY)  BEAM  429 

C  BEAM  430 

DIMENSION  X  (  1  )  ,Y  '1  ),Z  (  1 ) ,  ID (NUMNP,  1  )  BEAM  431 

COMMON  /EM/  LM(24) ,ND ,NS , S ( 24 ,24 ) ,R ( 96 ) ,XM(24),SA{ 12,24)  , TTC 12, 4 ) BEAM  432 

C  BEAM  433 

C              DETERMINE    REOUIRED    TRANSLATION    DEGREES    OF    FREEDOM  BEAM    434 

C  BEAM    435 

DO   54    NF=1,12,6  BEAM    436 

NOO=n:  BEAM    43  7 

IF    (NF.E0.7)    NOO=NJ  BEAM    438 

DO    30    K=l,3  BEAM    439 

I=K+NF-1  BEAM    440 

IF    (LM(I).GE.O)    GO    TO    30  BEAM    441 

M=-LM( I)  BEAM    442 

LM(  I)  =  ID(M,K)  BEAM    443 

IFIK-2)    35,45,55  BEAM    444 

35    Dl=-< Y(NOD)-Y(M) I  BEAM    445 

D2=          ZINOD)-Z(M)  BEAM    446 

LH(ND+1)=ID(M,6)  BEAM    447 

LMIND+2)=ID<M,5)  BEAM    448 

GO    TO    50  BEAM    449 

45   01  =  -IZ(  NODJ-Z  (M>)  BEAM    450 

02=          X(NOOI-X(M)  BEAM    451 

LM(N0+1)= 10IM.4)  BEAM    452 

LM(ND+2)=ID<M,6>  BEAM    453 

GO   TO    50  BEAM    454 

55    01«-( X(NnD)-XtM) )  BEAM    455 

D2=          Y(NOO)-YIM)  BEAM    456 

LM<ND-t-l)=ID(M,5>  BEAM    457 

LMIN0+2)=I0(M,4)  BEAM    458 

50    CONTINUE  BEAM    459 

C                                                                                                               *  BEAM    460 
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C      TRANSFURMAT ION.. .ARRAYS  INCREASE  IN  SIZE  BFAM  461 

C  BEAM  462. 

DO  60  11=1, ND  BFAM  463 

SJND+1 , II  )  =  S( I  ,11  >*D1  BEAM  464 

S(N0+2,I I  )  =  S< I  ,1  I  )*02  BEAM  465 

XMIND+1)  =XM<  I  )*01*I>1  BEAM    466 

XM(ND+2)=XM ( I >*D2*D2  BEAM    467 

S(  II  ,ND+  1  )  =  S(  II  ,1  >*D1  BEAM    468 

S<  I  I ,ND+2)  =  S( II ,1  )*D2  BEAM    469 

60    CONTINUE  BEAM    470 

C  BEAM    471 

00    70    11=1 ,NS  BEAM    472 

SA(II  ,ND+1)=SA(II,I.)*D1  BEAM   473 

70    SA( Il.NO+2  )  =  SA ( I  I ,1 )*D2  BEAM   474 

C  BEAM    475 

S<N0+1 ,ND+1)=S( I , I )*D1**2  BEAM    476 

SIND+2.ND+2 )  =  S( I ,1  )*D2**2  BEAM    477 

S(N0+1 ,ND+2)=S(I ,1 )*D1*D2  BEAM    478 

S(ND+2,ND+1 )=S(ND+1 ,ND+2)  BEAM    479 

NO=N0+2  BEAM    480 

30    CONTINUE  BEAM    481 

C  BEAM    482 

C  SET    ROTATIONS  BEAM    483 

C  BEAM    484 

00    54    J=l,3  BEAM    485 

K=NF+J+2  BEAM    486 

IFILM(K)  .GE.O)        GO    TO    54  BEAM    487 

M=-LM(K)  BEAM    488 

LH(K)=ID(M,J+3)  BEAM    489 

54   CONTINUE  BEAM    490 

C  BEAM    491 

RETURN  BEAM  492 

END  BEAM  493 


SUBROUTINE    SHELl  SHEL  1 

IMPLICIT    REAL*8     (A-H.O-Z) 

INTEGER    1SYSCR,ISYSLP,  ISCRF  1,1  SCRF2, I SCRF3 , I SCRF4, I SCRF7, ISCRF8, 
1ISCRF9 

COMMON/1NOUT/ISYSCR,ISYSLP,ISCRF1,ISCRF2, 2  SCR F 3, I SCRF4, 1 SCRF 7, 
1ISCRF8.ISCRF9 

COMMUN    Ad)  SHEL  2 

COMMON    /ELPAR/    NPARI 14) , NUMNP ,MB AND , NE LT YP , N 1 , N2 , N3, N4, N5, MTOT, NEOSHEL  3 
"COMMON    /    JUNK    /    LT,LH,L,LZ,SIG( 20) 

C  SHEL  5 

IF     INPARI1) .EO.O)    GO    TO    500  SHEL  6 

C              PROTECT    NODAL    TEMPERATURES  SHEL  7 

N6=N5+NUMNP+12*NPAR (3)  SHEL  8 

IF     (N6.GT.MT0T)    CALL    ERROR     (N6-MT0T)  SHEL  9 

CALL    TPLATE (NPAR ( 2  )  ,NPAR ( 3 ) ,A(N1) ,A(N2),A( N3)  , A ( N4) , AI N5) , NUMNP,       SHEL  10 

1       MBAND)  SHEL  11 

RETURN  SHEL  12 

C  SHEL  13 
500    WRITE    (1SYSLP.2002) 

NUME=NPAR(2)  SHEL  15 

DO  800  MM  =  1  ,NUME  SHEL  16 

CALL  STRSC  ( A ( Nl ) , A( N3 ) , NE 0, 0)  SHEL  17 

WRITE  ( ISYSLP.2001) 

DO  800  L=LT,LH  SHEL  19 

CALL    STRSC    ( A(N1 ) , A (N3  )  ,NEO, 1 )  SHEL  20 

WRITE    {  1SYSLP,3002)    MM  ,L , (SIG( I )  ,  I  =  1,6 ) 

800    CONTINUE  SHFL  22 

C  SHEL  23 

RETURN  SHEL  24 

C  SHEL  25 

2001  FORMAT     (/)  SHEL  26 

2002  FORMAT     (24H1    SHELL    ELEMENT    STRESSES//  SHEL  27 

1  102H                                     ELEMENT                  LOAD  MEMBRANE    STRESS    COMPONENTSSHEL  28 

2  BENDING    MOMENT    COMPONENTS  /                                                                  SHEL  29 

3  102H                                       NUMBER                  CASE  SXX                          S YY                         SSHEL  30 
4XY                           MXX                           MYY                           MXY  //)                                                                 SHEL  31 

3002    FORMAT     ( 10X  ,2 1 10  ,6E 12  .4  )  SHEL  32 

END  SHEL  33 

SUBROUTINE    TPLAT E (NOME L ,NUMM AT , ID ,X ,Y ,Z ,C, NUMNP , MBAND )  SHEL  34 
IMPLICIT    REAL'S     (A-H.O-Z) 

INTEGER    ISYSCR, I  SYS  LP , ISCRF 1 , I SCRF 2, I SCRF3 , I SCRF4, ISCRF7, ISCRF 8, 
11SCRF9 
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CUMMUN/INUUT/ISYSCK , ISYSLP,  1 SCR  1-1 ,  1SCKH2, I  SCR F  3,1 SCRF4 , 1 SCRF 7, 
1ISCRF8.ISCRF9 

COMMON/OTSARG/ 
1XX<5),YYC5),ZZ(5),HM<5>,HP(5),CM(3,3),ALFA(3>,HW<5),RH0(5,3),P( 
2, TC5),0T<5),SM(5,3),BM<5,3),TDIS(3,3,4),TKt)T(3,3,4),S(42,42),k( 

COMMUN/EM/LM124)  ,NU  ,NS,ASA(24,24)  ,RF  (24,4)  ,XM(  24), SAC  12,24  ) 
1,  SF( 12,4) 

DIMENSION    X(1),Y(1),Z(1), ILHNUMNP.l) ,C<12,1),IX(7),1Y<7),ELI4) 
I,  TOO, 3)  ,TLO(5,4) 


c 

LL=4 

c 

DO  4    1=1,12 
DO    4    J=l,4 

4 

SF(I ,J)=0. 
DO    5    1=1,24 
DO   5    J=l,4 

5 

RFC  I ,J)  =  0.0 

NPF=6 

NS=6 

MID=4 

MID=0 

IDIS=0 

IROT=0 

ISTOP=0 

MTYPE=6 

WRITE    ( ISYSLP.2000)    MT YPE , NUMEL .NUMMAT 

c 

c 

*** 

READ    AND    PRINT    OF    MATERIAL    PROPERTIES 

c 

WRITE    (  ISYSLP.2001) 
DO    10    J=l, NUMMAT 

READ    ( ISYSCR.1000)    N  ,  (C  (  I  ,N  I  ,  I = 1 , 12 ) 
10    WRITE    ( ISYSLP.2002)    N , (C ( I ,N  ) , I =3, 12 ) 

***    READ    AND    PRINT    OF    ELEMENT    LOAD    MULTIPLIERS 

READ    (ISYSCR.1002)     ( ( TLOC I , J ) , J= 1 ,4 ) , I = 1,5 > 

WRITE    { ISYSLP.2006) 

WRITE    t ISYSLP.2007)     ( J , ( TLO CI , J ) , I =1 , 5 ) , J= 1 ,4  ) 

***    READ    AND    PRINT    OF    ELEMENT    DATA 

WRITE    ( ISYSLP,2003) 
NN=0 
100    READ    C ISYSCR,1001  )    MM.IY.EL 
110   NN=NN+1 

IF     CMM-NN)     440,50,60 
50   DO   45    1  =  1  ,7 
45     1X(I)=IYCI) 
INCL=IYC7) 

IF    UY(6).E0.0)     IYC6)  =  1 
IM=IYC6) 

IFC  INCL.EO.O)     INCL=1 
NNS=5 

IF     CIYC51.E0.0)    NNS=4 
IF    C  IYC4).E0.0)    NNS  =  3 
RHOM=C( 3,IM ) 
ALFAC1)=C(4,IM) 
ALFAC2)=C(5,IM) 
ALFAC3)=CC6,IM) 
CMC 1,1)=C(7,IM) 
CMC1,2)=C(8,IM) 
CMC 1,3)=C(9 ,IM) 
CMC2,2)=C(  10,  IM) 
CMC2,3)=C(11,IM> 
CM(3,3)=CC 12, IM) 
CMC2, 1)=CM( 1 ,2 ) 
CMC3,1)=CM(1,3) 
CMC  3,2)  =  CMC2,3) 

DO  30  I=1,NNS 
HMC II'ELCl) 
HPC  I)=ELC1) 
HWC I )=EL(1) 
SMC  I,  1)  =  0.0 
SMC  I ,21=0.0 
SMC  1  , 31  =  0.0 
BMC  I ,1)»0.0 
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35 
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36 
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37 
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BM( |,2)»0.0 
30   BM( I ,3)=0.0 
GO    TO    70 

60    00    65     I»1,NNS 
65    I Xf I )= IX< I )+INCL 

70   DO   40    1=1 tNNS 

J=IX(I) 

XX< I )  =  XU) 

YY( 1)=Y (J  J 
40    ZZU)  =  Z<J) 

DO   550    IL=1,LL 
DO    520    1=1 tNNS 
RHO(  I,1)=TL0(3,IL)*RH0M 
RHO(I ,2>=TL0(4,Il )*RHOM 
RHO(  J,3)=TLn(5,IL)*RHnM 
P<  I»*TL0(liIL)*EL(2l 
T(  I)=TL0(2 ,IL )*EL< 3) 
520    DT<  I)=TL0(2,IL)*EL<4) 
IF    <  1L.GE.2)    GO    TO    530 

CALL    OTSHEL       <0,NNS,NPF ,M ID, IDI S, IROT.ND    ,NTF) 

DO    510    1  =  1  .NO 
XH( 11=0. 
00    510    J=l  ,N0 
510    ASAU  ,J)=S(  I  ,J) 
GO  TO    550 

530   CALL    OTSHEL       ( 1 .NNS.NPF ,M ID, IDI S, IROT.ND    ,NTF) 

DO  540  1  =  1  ,ND 
540  RF(  l,ILJ=Rt I) 
550   CONT INUE   . 

WRITE     ( ISYSLP.2004)    NN  ,  ( IX ( I  ) , I  =  1 ,6 ) ,HM( 1 ) ,P( 1 ) , T( 1 ) ,DT(  1 ) 

***    FORM    LM    ARRAY    AND    COMPUTE    BANDWIDTH 

DO    410    1=1, NNS 
J=NPF*I-NPF 
N=IjC<  I) 

DO    410    K=l  ,NPF 
410    LM( J+K)= IOIN.K) 

CALL    ODCOS    14,XX,YY,ZZ,T0) 
H=HM<1) 

CALL    STRETR    <  TO  ,XX  ,YY  ,ZZ  ,CM  ,SA,H  ,RH0»1  ,XM) 

NDM=24 

CALL    CALPAN     1 MBANO , ND IF ,LM, XM , ASA ,RF ,ND, NDM ) 

WRITE    tISCRFl)    ND,NS,(LM(I  ),I  =  1,ND),  ((  SA ( I , J ) , I  =  1 , NS> , J= 1 , ND ) , 
1((SF(  I, J  ),I  =  1,NS),J  =  1  ,4) 


GO    TO    500 
440   WRITE    (  ISYSLP.2005)    MM 

IST0P=1 
500    IF    (NN.LT.MM)     GO    TO    110 

IF     (NN.EO.NUMELI     RETURN 

IF    «  ISTOP.EO.l)    STOP 

GO    TO    100 

2000  FORMAT     (34H1...THIN    ELASTIC    SHELL    ELEMENTS...// 

1  25H    ELEMENT    TYPE 15// 

2  25H    NUMBER    OF    ELEMENTS 15// 

3  25H    NUMBER    OF    MATERIALS 15) 

1000    FORMAT     (I10.6F10.0/6F10.0) 

2001  FORMAT     (36H1... MATERIAL    PROPERTY    INFORMATION...// 

1     131H  MASS          THERMAL    E 

2FICIENTS  ELASTIC    COEFFICIENTS 

3..../ 

4  131H    TYPE  OENSITV                           AX 

5  AZ  CXX  CXY  CXG  CYY 
6GXY    //) 

2002  FORMAT      (1H     14 ,22X,4E 1 1 .4 ,6E 10 .4 ) 
1002    FORMAT     (4F10.0) 

2006    FORMAT     ( 31H 1 .. .ELEMENT    LOAO    MULTIPLIERS...// 
1     90H 


SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
'iHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 

SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 


113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 

151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 


SHEL 
SHEL 


SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
XPANSION  COEFSHEL 

SHEL 

SHEL 

AY   SHEL 

CYG        SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

GRAVISHEL 


169 
170 

172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
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2TY    ACCELERATION / 

3    90H         LOAD   CASE  LATtRAL    LOAD  TEMPERATURE  X- 

4Y-C0MP0NFNT  Z-CUMPUNENT       /> 

200  7    FORMAT     ( 1  X  ,  I  10  ,  5X  ,  5H5  .  5  ) 

2003  FORMAT     ( 1 5H 1 *ELEMFNT    DATA*// 

i    96H    ELEMENT  NODAL    POINT    NUMBERS  MATL 

2  TEMPERATURE/ 

3  96H      NUMBER  I  J  K  L  0  TYPE 

4  PRESSURE    TEMPERATURE  GRADIENT    /) 
1001    FORMAT     (8I5,4F10.0) 

2004  FORMAT     <3X,  I  5  ,5 X  ,5  I  5  ,5X  ,  I  5 ,4F 12  .4  ) 

2005  FORMAT     (23H0    ELEMENT    CARD     IN    6RROR.I5) 

END 


C 


SHFL  194 

MPONENT 

SHEL  195. 

SHEL  196 

SHEL  197 

SHEL  19B 

SHEL  199 

SHEL  200 

THICKNESS 

SHFL  201 

SHEL  202 

SHEL  203 

SHEL  204 

SHEL  205 

SHEL  206 

SHEL  207 

SUBROOTINE    STRETR    (  T  ,X  ,Y , Z ,CM , SA ,H ,RHOM, XM )  SHEL    208 

IMPLICIT    REAL*8     (A-H.O-Z) 

INTEGER    ISYSCR,ISYSLP,ISCRF  1,1  SCRF 2, I SCRF3 , I  SCR F4, I SCRF7, ISCRF8, 
1ISCRF9 

C0MM0N/1N0UT/ISYSCR,ISYSLP,ISCRF1 , 1 SCRF 2, I SCRF 3, I  SCR F4 , I SCRF 7, 
1ISCRF8.ISCRF9 
C 

C    ***    FORM    DISPLACEMENT-STRESS    TRANSFORMATION    MATRIX 
C 

DIMENSION    T(3,3),X(1),Y(1),Z(1),CM(3,3),SA(12,24),AA(12,12),MM(12)SHEL 
liAl 12,12  ), AM  1 4  1, SI (3,91,S2I3,9),S3I 3, 12),V(3,3),XY(3,2),XM( 1) 
C 

00    5    1=1,12 
DO   5    J=l,24 
5    SA( I,J)=0. 
DO    10    1=1 ,3 
VI  I,1)  =  X(I+1)-X(1I 
V(  I,2>=Y(  I+1)-Y(l  I 
10    V( I,3)=Z(I+1)-Z(1 ) 
DO   20    1=1,3 
00    20    J=l,2 
XY(  I  ,J')=0. 
DO    20    K=l,3 
20   XY( I ,J)=XY(I ,J)+V< I ,K)*T(J,K) 

XO=IXY( 1,1) +XY(2,1 )+XY(3,l> )/4.0 
YO=(XYI  1,2  )  +X Y ( 2,2 )+XY( 3,2) 1/4.0 
C 
C    ***    FORM    LUMP    MASS    MATRIX 

c 

AM1=XY( 1,1 )*YO-XO*XY( 1,2) 

AM2  =  ( XY  (1,1  )-X0)*IXY(2,2)-Y0 )-(XY(2,l)-X0)*(XY(  1,2)-Y0) 

AM3=(XY(2, l)-XO)*(XY(3,2)-YO)-(XY(3, 1 ) -XO ) * ( XY ( 2, 2 ) -YO) 

AM4=X0*XY( 3,2)-XY(3,l )*Y0 

AC=0.25*H*RHOM 

AMI  1)=AC*(AM1  +  AM4) 

AM(2)=AC*( AM1+AM2) 

AMI 3)=AC*( AM2+AM3) 

AMI4)=AC»(AM3+AM4) 

c 

DO   25    L=l,4 

XX=AM(L) 

DO   25    J=l,3 

JS=6»IL-1 )+J 

XMI JS)=XX 
25    XMIJS+3)=0. 
C 

C    ***    FORM    STRESS    TRANSFORMATION    FOR     IN    PLANE    STRESS 
C 

S=0.5 

R  =  0.5 

DO    100    1=1,3 

DO    100    J=l ,8 
100    S1I I,J)=0.0 
C 

XYJ  =  XY(  1,1)*XY(3,2)-XY(3,1)*XY(1,2)-MXY(1,1>*!XY<2,2)-XY(3,2)) 

1  -(XY(2,2)-XY(3,1))*XY(1,2))*S-((XY(1, 1J-XYI2, 1 ) )*XY( 3,2) 

2  -XY( 3,1  )»(XY( 1,2)-XY<2,2) > )*R 
X1  =  XYI  1,2 )-XY(3,2)-(XY(2,2 )-XY(3,2))*S-(XY(l,2)-XY(2,2))*R 
X2=XY ( 3, 2  )+ (XY (2,2 l-XYI 3,2  I  ) *S-XY ( 3 , 2 )*R 
X3=-XY(  1,2  )*S+XY(3,2)*R 

X4=-XY(1,2)+XY(1,2)*S+(XY(1,?)-XY(2,2))»R 

Y1=-XY( 1,1 )+XY(3,l )+(XY(?,l )-XY( 3. 1) )*S+(XY( 1, 1 ) -X Y ( 2, 1) )*R 
Y2  =  -XY( 3,1)-(XY(2,1)-XY(3,1))*S+XY(3,  1)*R 
Y3=XY( 1 ,1 )*S-XY(3,1 )*R 


SHEL 

209 

SHEL 

210 

SHEL 

211 

)SHEL 

212 

SHEL 

213 

SHEL 

214 

SHEL 

215 

SHEL 

216 

SHEL 

217 

SHEL 

218 

SHEL 

219 

SHEL 

220 

SHEL 

221 

SHEL 

222 

SHEL 

221 

SHEL 

224 

SHEL 

225 

SHEL 

226 

SHEL 

227 

SHEL 

228 

SHEL 

229 

SHEL 

230 

SHEL 

231 

SHEL 

2  32 

SHEL 

233 

SHEL 

234 

SHEL 

235 

SHEL 

236 

SHEL 

23  7 

SHEL 

238 

SHEL 

239 

SHEL 

240 

SHEL 

241 

SHEL 

242 

SHEL 

243 

SHEL 

244 

SHEL 

245 

SHEL 

246 

SHEL 

247 

SHEL 

248 

SHEL 

249 

SHEL 

250 

SHEL 

251 

SHEL 

2  52 

SHEL 

253 

SHEL 

254 

SHEL 

255 

SHEL 

256 

SHEL 

257 

SHEL 

258 

SHEL 

259 

SHEL 

260 

SHEL 

261 

SHFL 

262 

SHEL 

263 

SHEL 

2  64 

SHEL 

265 

SHEL 

266 
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Y4-XYI  1,1  )-XY( 1,1  >*S-(XY( 1,  1)-XY(2,1)  )*R  SHFL    267 

C  SHEL    268 

Sl(  l,l)=Xi/XYJ  SHEL    269 

Sl(  1  ,3)=X2/XYJ  SHEL    270 

SI  I  1,5>=X3/XYJ  SHEL    271 

Sl( 1  ,7)=X4/XYJ  SHEL    272 

Sl(2t2)=Yl/XYJ  SHEL    273 

SK2,4)=Y2/XYJ  SHEL    274 

Sl(2t6)=Y3/XYJ  SHEL    275 

S1(2,8)=Y4/XYJ  SHEL    276 

Sl( 3,1)=S1(2,2)  SHEL    277 

S1(3,2)=S1(1,1)  SHEL    278 

Sl(  3,3)  =  S1  (2, A)  SHEL    279 

S1(3,4)=S1 (1,3)  SHEL    280 

Sl( 3t5)=Sl (2,6)  SHEL    281 

S1(3,6)=S1(1,5)  SHEL    282 

Sl( 3,7)  =  S1 12,8)  SHEL    283 

S1(3,8)=S1U,7)  SHEL    284 

DO    105    1=1,3  SHEL    285 

00    105    J=l,8  SHEL    286 

S2( I , J)=0.  SHEL    287 

00    104    K=l,3  SHEL    288 

104  S2(  I, J)  =  S2<  I  ,J)+CM< I ,K)*S1(K, J)  SHEL    289- 

105  S2( I ,J)=S2!I ,J )*H  SHEL  290 
C  SHEL  291 

H  =  H**3/12.  SHEL  292 

DO  110  1=1,4  SHEL  293 

DO  110  1=1,3  SHEL  294 

DO  110  J=l,3  SHEL  295 

JS=6*(L-1)+J  SHEL  296 

KA=2*(L-1)+1  SHEL  297 

110  SA( I ,JS)=S2(I,KA)*T< 1 ,  J >  +  S2< I , KA+ 1 >*T( 2, J)  SHEL  298 

C  SHEL  299 

C  ***  FORM  STRESS  TRANSFORMATION  FOR  MOMENT  SHEL  300 

C  SHEL  301 

DO  30  1=1,12  SHEL  302 

DO  30  J=l,12  SHEL  303 

AA(I,J)=0.  SHEL  304 

30  A( I,J)=0.  SHEL  305 

C  SHEL  306 

DO  40  1=1,3  SHEL  307 

J=3*I+1  SHEL  308 

A(  1,J)  =  1 .  SHEL  309 

AC2,J>=XY<I,1)  SHEL  310 

At  3,J)  =  XY( I  ,2)  SHEL  311 

A(4,J)=XY< 1,1 )*XYf I ,1)  SHEL  312 

A(  5,J)  =  XY( I  ,1 )*XY(I ,2 )  SHEL  313 

A(6,J)=XY( I,2)*XY( 1,2)  SHEL  314 

A(7, J)=A(4, J)*XY (I , 1 )  SHEL  315 

A(8,J)=A(5,J)»XY( I  ,1  I  SHEL  316 

A(9,J)=A.(5,  J)*XY(I,2)  SHEL  317 

A< 10,J)=A(6,J )*XY( I ,2)  SHEL  318 

A<  11, J)  =  XY( I  ,1  )*XY< I ,1 )*XY(I , 1 )*XY( I ,2)  SHEL  319 

AI 12,J)=XY(I ,1 )*XY( I ,2)*XY( I ,2)*XY(I ,2)  SHEL  320 

A(3,J+1)=1.0  SHEL  321 

A(5,J+1)=XY( I ,1 )  SHEL  322 

A<6,J+1)=2.0*XY( I ,2 )  SHEL  323 

A(8,J+1>=XY( I ,1 )*XY( I ,1 )  SHEL  324 

A(9,J  +  1)=2.0*XY( 1,1  )*XY( I  ,2)  SHEL  325 

A( 10,J+1)=3.0*XY( I ,2 )*XY(I ,2)  SHEL  326 

A( 11, J+l  )  =  XY( I ,1 )*XY( I ,1 )*XY ( I ,  1  )  SHEL  327 

A(12,J+1)=3.0*XY(I ,1 )«XY(I ,2)*XY( I ,2)  SHEL  328 

A(2,J+2)=-l .0  SHEL  329 

A(4,J+2)=-2.0*XY< I ,1 )  SHEL  330 

A( 5,J  +  2)=-XY( 1  ,2)  SHEL  331 

A(7,J+2)=-3.0*XY( I ,1 )*XY(I , 1)  SHEL  332 

A(8,J  +  2)=-2.0*XY(I  ,  1 )*XY(  I ,2 )  SHEL  333 

A(9,J+2)=-XY( I ,2)*XY( I ,2)  SHEL  334 

A(  11, J+2  )=-3.0*XY(I  ,1  )*XY(  1  ,  1  )*XY( I ,2)  SHEL  335 

Al 12,J+2)=-XY( I ,2)*XY( I ,2)*XY( I ,2)  SHEL  336 

40  CONTINUE  SHEL  337 

A(l,l)=1.0  SHEL  338 

A(3,2)=1.0  SHEL  339 

A(2,3»=-1.0  SHEL  340 

C  SHEL  341 

CALL  INVERT  ( A ,12, 12 ,MM , AA )  SHEL  342 

C  SHEL  343 

00  210  1=1 ,3  SHEL  344 

DO  210  J=l ,9  SHEL  345 

210  SKI  ,J)=0.  SHEL  346 
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C  SHEL    347 

SKI, 11=2.0  SHfc'L    348 

Sl<  1,4)=>6.0*X0  SHEL    349 

SUlt5)=2.0*Y0  SHEL    350 

Sl( 1,8)=6.0*X0*Y0  SHEL    351 

Sl<2, 31=2.0  SHEL    352 

S1(2,6)=2.0*X0  SHEL    353 

S1(2,7)=6.0*Y0  SHEL    354 

S1(2,9)=6.0*XU*Y0  SHEL    355 

5113.21=2.0  SHEL    356 

Sl< 3,5>=4.0*X0  SHEL    357 

S1(3,6)=4.0*Y0  SHEL    358 

Sl< 3,8)=6.0*X0*X0  SHEL    359 

S1(3,9)=6.0*Y0*Y0  SHEL    360 

C  SHEL    361 

DO    220    1  =  1  ,3  SHEL    362 

00    220    J=l,9  SHEL    363 

S2( I ,J)=0.  SHEL    364 

00    215    K=l,3  SHEL    365 

215    S2( 1 .J)=S2 (I ,J  )+CM(I ,K)*S1(K, J)  SHEL    366 

220    S2< I, J)=-S2( 1,J)*H  SHEL    367 

C  SHEL    368 

DO    230    1=1,3  SHEL    369 

DO   230    J=l  ,12  SHEL    370 

S3(  I  , J)  =  0.  SHEL    371 

DO   230    K=l  ,9  SHEL    372 

230    S3( I , J)=S3< I ,J)+S2< I ,K >*A< J.3+K)  SHEL    373 

C  SHEL    374 

DO    240    L=l ,4  SHEL    375 

DO    240    1  =  1  ,3  SHEL    376 

DO    240    J=l ,3  SHEL    377 

JS=6*< L-l )+J  SHEL    378 

KA=3»(L-1)+1  SHEL    379 

SA( I+3.JS >=S3< I ,KA)«T<3,J>  SHEL    380 

JS=JS*3  SHEL    381 

SA( 1+3,  JS  )=S3( I ,KA  +  1 )*T (1, J1+S3I I ,KA+2)*T(  2,  J)  SHEL    382 

240    CONTINUE  SHEL    383 

RETURN  SHEL    384 

END  SHEL    385 


SUBROUTINE     INVERT (A, NN,N,M,C )  SHEL    386 

IMPLICIT    REAL*8     (A-H.O-Z) 

INTEGER    ISYSCR.ISYSLP,  ISCRF 1 , 1 SCRF 2 , I SCRF3 , I  SCR F4, I SCRF7, ISCRF8, 
1ISCRF9 

C0HH0N/IN0UT/ISYSCR,ISYSLP,ISCRF1,ISCRF2,ISCRF3,I SCRF4 , I SCRF 7, 

1ISCRF8.ISCRF9 

C  SHEL    387 

C  GENERAL  MATRIX  INVERSION  SUBROUTINE  SHEL  388 

C  SHEL  389 

DIMENSION  A(l ),M<1 ),C(1 )  SHEL  390 

C  SHEL  391 

00  90  1=1 ,NN  SHEL  392 

90  M( I)=-I  SHEL  393 

C  SHEL  394 

DO  140  1=1, NN  SHEL  395 

C  SHEL  396 

C  LOCATE    LARGEST    ELEMENT  SHEL    397 

C  SHEL    398 

D=0.0  SHEL    399 

00    112    L=1,NN  SHEL    400 

IF     (M(L)»    100,100,112  SHEL    401 

100    J=L  SHEL    402 

DO    110    K=1,NN  SHEL    403 

IF    (M(K)l     103,103,108  SHEL    404 

103     IF     (DABS(D)-0ABS(A( J) ) )     105,105,108 

105   LD=L  SHEL    406 

SHEL  407 
SHEL  408 
SHEL  409 
SHEL  410 
SHEL  411 
SHEL  412 
ROWS  SHEL  413 

SHEL  414 
SHEL  415 
SHEL  416 
SHEL  417 
SHEL  418 


KO=K 

D=A( J) 

108 

J=J+N 

110 

CONT 1NUE 

112 

CONTINUE 

c 

c 

INTERCHANGE 

c 

TfcMP=-M(LD) 
M<LO)=M(KD) 
M(KO)=TtMP 
L  =  LD 
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K-KD  SHFL    419 

00    114    J=l ,NN  SHFL    420 

C(J)»A(L>  SHEL    421 

A(L)=A(K>  SHEL    422 

AIKI-CU  )  SHEL    423 

L  =  L+N  SHEL    424 

114  K=K+N  SHEL  425 
C  SHEL  426 
C  DIVIDE  COLUMN  BY  LARGEST  ELEMENT  SHEL  427 
C  SHEL    428 

NR=(KD-1  )*N  +  1  SHEL    429 

NH=NR+N-1  SHEL    430 

DO    115    K=NR  ,NH  SHEL    431 

115  A(K)=A(K)/0  SHEL  432 
C  SHEL  433 
C  REDUCE  REMAINING  ROWS  AND  COLUMNS  SHEL  434 
C  SHEL    435 

L=l  SHEL    436 

DO    135    J=1,NN  SHEL    437 

IF    (J-KD)     130,125,130  SHEL    438 

125    L-=L+N  SHEL    439 

GO   TO    135  SHEL    440 

130    DO    134    K=NR,NH  SHEL    441 

A(L)=A{ LI-CIJ )*A(K>  SHEL    442 

134  L=L+1  SHEL     443 

135  CONT INUE  SHEL  444 
C  SHEL  445 
C  REDUCE  ROW  SHEL  446 
C  SHEL    447 

C(KD)=-1.0  SHEL    448 

J=KD  SHEL    449 

DO    140    K=1,NN  SHEL    450 

AIJ)=-C(K)/0  SHEL    451 

140   J  =  J«-N  SHEL    452 

C  SHEL    453 

C               INTERCHANGE    COLUMNS  SHEL    454 

C  SHEL    455 

DO   200    1  =  1  ,NN  SHEL    456 

L=0  SHEL    457 

150    L=L+1  SHEL    458 

IF(MIL)-I)     150,160,150  SHEL    459 

160    K=(L-1)*N+1  SHEL    460 

^     J=(  I-1)*N+1  SHEL    461 

M(L)=M( I)  SHEL    462 

M( I )=I  SHEL    463 

DO    200    L=1,NN  SHEL    464 

TEMP=A(K)  SHEL    465 

A(K)=A( J)  SHEL    466 

A(J)=TEMP  SHEL    467 

J=J+1  SHEL    468 

200    K=K+1  SHEL    469 

C  SHEL    470 

RETURN  SHEL    471 

C  SHEL    472 

END  SHEL    473 

SUBROUTINE    OTSHEL     ( KKK ,NNS ,NPF ,M ID , I  01 S, IROT, NE F, NTF I  SHEL    474 

IMPLICIT    REAL*8     (A-H.O-Z) 

INTEGER    ISYSCR, ISYSLP, ISCRF 1, I SCRF 2, 1 SCRF3 , I SCRF4, I SCRF7, ISCRF8, 
11SCRF9 

COMMON/ 1 NOUT /  ISYSCR, ISYSLP, I SCRF 1, 1 SCRF 2, I SCRF 3, I  SCR F4, I SCRF 7, 
1ISCRF8.ISCRF9 

C  SHEL    475 

C              THIS    SUBROUTINE    CAN    EVALUATE  SHEL    476 

C                                    ...    ELEMENT     STIFFNESS    MATRIX  ...                                                                 SHEL    477 

C                                  ...    CONSISTENT    NODAL    FORCE    VECTOR    ...  SHEL    478 

C                                    ...     INTERNAL    STRESSES    AND    MOMENTS     ...  SHEL    479 
C               OF    A    SHALLOW    OUADR  ILATER AL     SHELL    ELEMENT    ASSEMBLED    WITH    4    FLAT             SHEL    480 

C                TRIANGLES,     OR    OF     A    SINGLE    TRIANGULAR    SHELL    ELEMENT.  SHEL    481 

C  SHEL    482 

C  SHEL    483 
C************    CALLING    ARGUMENTS    ***»*«*#**»*»»    SHEL    484 

C  SHEL    485 

C                INPUTS  SHEL    486 

C  SHEL    4B7 

C                   KKK                         INTEGER    FLAG    SPECIFYING    OPERATION    TO    BE     PERFORMED  SHEL    488 

C                                                      IF     KKK    =-1,    FURM     STIFFNESS    MATRIX    ONLY.  SHEL    489 
C                                                      IF    KKK    =    0,     FORM    STIFFNESS    MATRIX    AND    LOAD    VECTOR.           SHEL    490 
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C  IF    KKK    »     1,    FORM     LUAIJ    VECTOR    ONLY.  SHtL    491 

C  IF    KKK    •    2,    tVALUATfc     STRESSES    AND    MOMENTS.  SHFL    492 

C  SHEL    493 

C  NNS                        NUMBER    UF     SUPPLIED    NODAL    POINTS  SHEL    494 

C  IF     NNS    =    5,    OTSHEL    FORMS    A    QUAUR I  LA T FR AL ,     AND    THE  SHEL    495 

C  PROPERTIES    AT     THE     INTERNAL    NUUF     5    MOST    BE     INPOT.  SHFL    496 

C  IF    NNS    =    4,    OTSHEL    FORMS    A    OUAOR  I  LAT  ER  AL ,     AND    THE  SHEL    497 

C  PROPERTIES    AT     THE     INTERNAL    NUDE     5    ARE    SET    BY    OTSHEL  SHEL    498 

C  TO    BE     THEIR    CORNER    AVERAGE.  SHEL    499 

C  IF    NNS    =    3,    ODST1F    FORMS    A    SINGLE    TRIANGLE.  SHEL    500 

C  SHEL    501 

C  NPF                       NUMBER    OF    GLOBAL    DEGREES    OF    FREEDOM    AT    EACH  SHEL    502 

C  EXTERNAL    NODE     (3,     5    OR    6)  SHEL    503 

C  IF    NPF    =    6,     THE     i    DISPLACEMENTS    U,     V    AND    W    AND    THE  SHEL     504 

C  3    ROTATIONS    RX ,     RY    AND    RZ    ARE     INCLUDED    AS    U.O.F.  SHEL    505 

C  IF    NPF    =    5t     THE    ROTATION    RZ     IS     IGNORED.  SHEL     506 

C  IF    NPF    =     3t    ONLY    Ui    V    AND    W    ARE    CONSIDERED    AND  SHEL    507 

C  THE    BENDING    STIFFNESS    IS    NOT    INCLUDED    (MEMBRANE  SHEL    508 

C  SHELL    ELEMENT)  SHEL    509 

C  SHEL    510 

C  MID                        NUMBER    OF     INTERNAL    MIDPOINTS     IN    QUADRILATERAL     (0    OR    4ISHEL    511 

C  IF    MID    =    0,     THE    MEMBRANE     ELEMENTS    ARE          CST  SHEL     512 

C  AND    THE     BENDING       ELEMENTS    ARE          LCCT-9  SHEL     513 

C  IF    MID    =    4,     THE    MEMBRANE     ELEMENTS    ARE          LST-10  SHEL    514 

C  AND    THE     BENDING       ELEMENTS    ARE          LCCT-11  SHEL    515 

C  IF    NNS    =    3     ISINGLE    TRIANGLE)    MID    IS    ASSUMED    TO    BE    0  SHEL    516 

C  SHEL    517 

C  IDIS                     INTEGER    FLAG    FOR    THE    NODAL    DISPLACEMENTS    U.V.W  SHEL    518 

C  IF     IDIS    =     0,    U.V.W    ARE     SPECIFIED     IN    THE    GLOBAL     SYSTEMSHEL    519 

C  JF     IDIS    =     1,    U,V,W    ARE     SPECIFIED    IN    THE    NODAL    DISPL  SHEL     520 

C  SYSTEMS    DEFINED     BY    THE     DIRECTION    COSINE    ARRAY    TDIS.  SHEL     521 

C  SHEL    522 

C  IROT                       INTEGER     FLAG    FUR    THE    NODAL    ROTATIONS    RX.RY.RZ.  SHEL    523 

C  IF     IRUT     =    0,     RX.RY.RZ     ARE     SPECIFIED     IN    GLOBAL    SYSTEM  SHEL     524 

C  IF     IROT    =     1,    RX.RY.RZ     ARE     SPECIFIED    IN    THE    NODAL     ROT  SHEL    525 

C  SYSTEMS    DEFINED    BY    THE     DIRECTION    COSINE    ARRAY    TROT.  SHEL    526 

C  SHEL    527 

C  OUTPUTS  SHEL    528 

C  SHEL    529 

C  NEF                       NUMBER    OF    EXTERNAL    DEGREES    OF    FREEDOM    ( NEF    =    NPF*NEN,  SHEL    530 

C  WHERE    NEN=4    FOR    QUADRILATERAL,     =3    FOR     SINGLE    TR I  ANGLE ) SHEL     531 

C  SHEL    532 

C  NTF                         TOTAL    NUMBER    OF    DEGREES    OF     FREEDOM     ( EXT ERNAL+ INT ERNAL ) S HEL     533 

C  SHEL    534 

C  SHEL    535 

(;*•*•«•«***    ARRAYS     IN       COMMON    /OTSARG/       »»*«»»»**«*  SHEL    536 

C  SHEL    537 

C    X(   I),  Y(  1  )  ,Z (  i)        1=1. ..NNS         GLOBAL    NODAL    COORDINATES  SHEL    538 

C  SHEL    539 

C  CM(I.J)                    1=1. ..3,    J=1...3          PLANE     STRESS     MATERIAL    MATRIX  SHEL    540 

C  RELATING    STRESSES    TO    STRAINS     IN    THE    LOCAL    SYSTEM  SHEL    541 

C  SHEL    542 

C  ALFA(l)                    1=1. ..3          DILATATION    COEFFICIENTS    RELATING     IN-PLANE  SHEL    543 

C  THERMAL    STRAINS     IN    THE     LOCAL    SYSTEM    TO    TEMPERATURES  SHEL    544 

C  SHEL    545 

C  HM(I)                     1=1. ..NNS         THICKNESS    RESISTING    MEMBRANE    STRESSES  SHEL    546 

C  SHEL    547 

C  HP(I)                       1=1. ..NNS          THICKNESS    RESISTING    BENDING    MOMENTS  SHEL    548 

C  SHEL    549 

C  RHOII.J)                 1=1. ..NNS,     J=1...3       GLOBAL    COMPONENTS    RHOX     ( J= 1 ) ,  SHEL    550 

C  RHOY     (J=2)    AND    RHOZ     <J=3)    OF    BODY    FORCES    PER    UNIT  SHEL    551 

C  OF    VOLUME  SHEL    552 

C  SHEL    553 

C  HW(  I )                       1=1. ..NNS          THICKNESS    FOR    COMPUTING    BODY    FORCES  SHEL    554 

C  RHO*HH    PER    UNIT     OF    ELEMENT    AREA  SHEL    555 

C  SHEL    556 

C  P( I )                        1=1. ..NNS         LATERAL    PRESSURE     (NORMAL    TO    THE    FACES    OF  SHEL    557 

C  THE    COMPONENT    TRIANGLES)  SHEL    558 

C  SHEL    559 

C  T(l)                          1=1. ..NNS          MEAN    TEMPERATURE    VARIATIONS  SHEL    560 

C  SHEL    561 

C  DT(I)                     1  =  1. ..NNS         MEAN    TEMPERATURE     THICKNESS    GRADIENTS  SHEL    562 

C  SHEL    563 

C  SMII.J)                    1  =  1. ..NNS,     J=1...3          ARRAY    OF    MEMBRANE    STRESS  SHEL    564 

C  COMPONENTS     IN    THE     LOCAL    SYSTEM       SIG-XX     (J=l),     SIG-YY  SHEL    565 

C  (J=2)    AND    SIG-XY     (J=3).     SM    CONTAINS  SHEL    566 

C  MEMBRANE     STRESStS     IN     THE     INITIAL     POSITION    AS     INPUT  SHEL    567 

C  WHEN    KKK=0,1,2     (rXCLODING     THERMAL    ACTIONS)  SHEL     568 

C  MEMBRANE     STRESSES     IN     THE    DEFORMED    POSITION    AS    OUTPUT  SHEL    5b9 

C  WHEN    KKK=2     (INCLUDING     THERMAL    ACTIONS)  SHFL     570 
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BM( I , J) 


TDI S( I  ,J,K) 


TROT( I iJiK) 


1  =  1. ..NNS,     J  =  1...3  ARRAY    OF     BENDING    MOMENT 

COMPONENTS     IN     THb     LUCAL     SYSTEM       MOM-XX     (J=l),     MOM- Y Y 
(J=2)     AND    MOM-XY    (J=3).     HM    CONTAINS 
BENDING    MOMENTS     IN    THE     INITIAL    POSITION    AS     INPUTS 
WHEN    KKK=0,1,2     (EXCLUDING     THERMAL    ACTIONS) 
BENDING    MOMENTS     IN    THE     DEFORMED    POSITION    AS    OUTPUT 
WHEN    KKK  =  2     (INCLUDING    THERMAL    ACTION) 

1=1. ..3,     J=1...3,     K=1...NEN  NOT    REQUIRED     IF 

IDIS  =  0.     IF     ID  I  S=  1 1     TDISI  1..3, 1..3.K )     MUST    CONTAIN 
THE     (3t3>    DIRECTION    COSINE    MATRIX    OF     THE    NODAL 
DISPLACEMENT     SYSTEM    AT     THE    K-TH    ELEMENT     NODE    WITH 
RESPECT    TO    THE    GLOBAL     SYSTEM 

1=1... 3,     J=1...3,     K=1...NEN  NOT    REQUIRED     IF 

IROT  =  0.     IF     IROT  =  l,     TROT<  1..3, 1..3.K)     MUST    CONTAIN 
THE     13,3)    DIRECTION    COSINE    MATRIX    OF    THE    NODAL 
ROTATION    SYSTEM    AT    THE    K-TH     ELEMENT    NODE    WITH 
RESPECT    TO    THE    GLOBAL     SYSTEM 


S(I,J> 


SI  I,  J) 


R(  I) 


R(  I) 


1  =  1. ..NEF, 
(OUTPUT  IF 


J=1...NEF 
KKK=-l,0) 


EXTERNAL  STIFFNESS  MATRIX 


1  =  1. ..NTF,  J=NEF+1...NTF 
OF  QUADRILATERAL  ELEMENT. 
REQUIRED  INPUT  IF  KKK=1,2, 
TRIANGLE. 


REDUCED  INTERNAL  STIFFNESS 
OUTPUT  IF  KKK=-1,0. 
NOT  USED  FOR  SINGLE 


1=1.., 

INPUT 


NEF  OUTPUT     EXTERNAL    NODAL    FORCES     IF    KKK=0, 1, 

EXTERNAL    NOOAL    DISPLACEMENTS     IF    KKK=2. 


I=NEF  +  1  ...NTF  REDUCED     INTERNAL    NODAL    FORCE    VECTOR 

OF    QUADRILATERAL    ELEMENT.    OUTPUT     IF    KKK=0,1. 
REQUIRED     INPUT     IF    KKK  =  2     (RETURNS     INTERNAL    NODAL 
DISPLACEMENTS).    NOT    USED    FOR    SINGLE    TRIANGLE. 


«»**»««»»*    role    OF     ARRAYS     IN    COMMON    /QTSARG/    **#«*»#* 


ARRAYS 


OPERATION 


X,Y, Z,CM,ALFA,HM,HP 
RHO.HM.P 
T.OT       (») 
SM.BM     («> 
TDIS.TROT     (**) 
S(  1  ..NEF.l.  .NEF) 
S(  1..NTF.NEF+1 ..NTF) 
R(  1. .NEF) 
RJNEF+1 ..NTF) 


(*) 


KKK 

Q 


=-1 

T 


KKK 
Q 


=    0 
T 


KKK 
0 


=     1 
T 


KKK 
0 

I 

I 

I/O 

I 


I 
I/O 


=    2 
T 

I 

I 

I/O 

I 


WHERE 


Q=QUADRILATERAL     <NNS=4,5),     T=SINGLE    TRIANGLE     (NNS=3) 
I=INPUT,     0=OUTPUT,     I/0=INPUT/OUTPUT,     -=NOT    USEO. 


NOTES  (*)       HP.DT    AND    BM    ARE 

(**)    TOIS    IS    NOT    USED 
IF     IROT=0. 


NOT    USED    IF    NPF=3. 
IF     IDIS=0,     AND    TROT 


IS    NOT    USED 


SHEL 

SHFL 

SHEL 

SHEL 

SHEL 

SHEL 

SHFL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 

SHEL 


COMMON    /QTSARG/    X  (  5 ) , Y  (  5 >  ,  Z (5  )  ,     HMI5),HPJ5>,    CM( 3, 3 ) , ALFA< 3 ) , 

1  HW<5) ,RHO(5,3) ,P(5),     T(5),DT(5),     SM ( 5 ,3) , BM(  5 , 3 ) ,     TDIS(3,3,4), 

2  TR0T(3,3,4),  SI42.42),  R(42) 
COMMON  /TRIARG/  A(3),B(3),  HMT ( 3 ) .HPT ( 3  )  ,  C(3,3),  SMT(3,3), 

1  BMTI3.3),  FT(12),      P 1  ( 3  )  , P2 ( 3 ) , P 3( 3 ) ,RM( 3 ) ,  ST(12,12) 
COMMON  /TRANSF/   Tl  (  3  )  ,T2  (  3  )  ,  T3  (  3  )  ,  TOO, 3) 
DIMENSION  F(l),  IPERMQ<4>,  MFR15),  LOCI5),  NC(3),  CA(3),  WGT(3), 

1  TDK  13)  ,TD2( 13)  ,TD3(9  ),  TR  1  (9  )  ,TR2 ( 9  ) , TR3 ( 9 )  ,  U(  1 ) , V(  1 ) , W(  1  )  , 

2  RX(  1)  ,RY(  1) 
EQUIVALENCE     (T11,T1),(T12,T1(2)),(T13,T1(3)),(T21,T2),( T22.T2I 2) ) ,SHEL 

1  (T23,T2(3 ) ), (T31 ,T3), (T32.T3I2 ) ), ( T33.T3I 3) ),     (R,F),  SHEL 

2  (U,FT(,  (V,FT(71),  (W.P1),  (RX.P2),  (RY,P3)  SHEL 
LOGICAL  QUAD,  TRIG,  NOMP,  NOST,  SIST,  NOLD,  SILD,  NOSM,  SISM,  SKMPSHEL 
DATA   IPFRMQ  /2,3,4,1/,  MFR  /3,3,3,2,2/,  WGT  /. 50, .50, . 25/  SHEL 

SHEL 
INITIALIZE  SHEL 

SHEL 
SIST  =  KKK.LE.O  SHEL 

NOST  =  .NOT. SIST  SHEL 


571 

5  72 

5  73 

5  74 

575 

576 

577 

57B 

579 

580 

581 

5B2 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 

601 

602 

603 

604 

60  5 

606 

60  7 

608 

609 

610 

611 

612 

613 

614 

615 

616 

617 

618 

619 

620 

621 

622 

62  3 

624 

625 

626 

62  7 
628 
629 
630 
631 
632 
633 
634 

63  5 
636 
63  7 
638 

63  9 
640 
641 
642 
643 

64  5 
644 
646 
64  7 
648 
649 
650 
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SILO    «    KKK.EO.O.OR.KKK.EO.l 

NOLO    ■=     .NIJT.S1LD 

SISH    «=    KKK.G6.2 

NOSM    =     .NfJT.SISM 

IF     ( ( NNS.NE .3) .AND. (NNS.NF.5 ) ' 

NNS 

=    4 

IF    ( (NPF.NE.3)  .ANO.INPF.Nfc .6) ) 

NPF    = 

=    5 

NEN    =    MI  NO     INNS, 4) 

OUAD    =    NEN.E0.4 

TRIG    =    NFN.EO.3 

MG   "    1. 

N3    =    2»NEN    -    3 

NTRI     =     3*NEN    -    8 

NEF    «=     NEN"NPF 

NSF    =    NEF    +     (NEN-3)*NPF 

SHEL    651 

SHEL    652 

SHFL    653 

SHEL    654 

SHEL    655 

SHEL    656 

SHEL    657 

SHEL    658 

SHEL    65V 

SHEL    660 

SHEL    661 

SHEL    662 

SHEL    663 

SHEL    664 

IF     (MID.NF.4)       MID    =    0  SHEL     665 

MIDP    =    MID  SHEL    666 

IF     (TRIG)       MIDP    =    0  SHEL     667 

NFM    =    3  SHEL    668 

IF     (NPF.E0.3)       NFM    =    2  SHEL     669 

NTF    =    NSF    +    NFM*MIUP  SHEL    670 

NOMP    =    MIDP.LE.O  SHEL     671 

SKMP    =    NOMP.OR.NOST  SHEL    672 

IF     (NNS.NE. A)        GO    TO    130  SHEL     673 

X(5)    =    0.25*(X(1  )+X(2)+X(3)+X(4>  )  SHEL    674 

Y(5)     =    0.25*<Y( 1 >+Y<2 )+Y( 3)+Y (4 ) )  SHEL    675 

2(5)    =    0.25*(Z (1  >+Z(2)+Z (3)+Z(4) )  SHEL    676 

HM!5)  =  0.25»(HM ( 1 )+HM(2) +HM ( 3) +HM ( 4 ) )  SHEL  677 

HP(5)  =  0.25*(HP(1 )+HP(2)+HP(3)+HP(4)>  SHEL  678 

IF     (KKK.LT.O)        GO    TO    130  SHEL     679 

T(5>    =    0.25*(T (1 )+T(2)+T (3>+T(4) )  SHEL    680 

0T(5)     =    0.25*lDT (1 )+DT (2)+0T (3)+0T(4) )  SHEL    681 

00    110       J    =    1,3  SHEL    682 

SM(5,J)     =    0.25»( SM(1 ,J  I+SMI2, J)+SM(  3, J1  +  SMI4, J)  )  SHEL     683 

110    BM(5,J)     =     0.25*<BM< 1 ,J)+BM (2, J  )  +  BM ( 3, J)+BM(4, J) )  SHEL    684 

IF     (NOLO)       GO    TO    130  SHEL    685 

P(5).=    0.25*(P(1 )+P(2 )+P(3)+P(4) )  SHEL    686 

HW(5)     =     0.25«(HW ( 1 )+HW(2) +HW ( 3) +HWI4 ) )  SHEL    687 

00    120       J    =    1,3  SHEL    688 

+RH0(4,J))  SHEL     689 

SHEL  690 
SHEL  691 
SHEL  692 
SHEL  693 
SHEL  694 
SHEL  695 
SHEL  696 
SHEL  697 
SHEL  698 
SHEL  699 
SHEL  700 
SHEL  701 
SHEL  702 
SHEL  703 
SHEL  704 
SHEL     705 

CA(I)     =    CM(1 ,1  )*ALFA( 1)+CM(2,I  )*ALFA(2)+CM(  3,1  )»ALFA( 3)  SHEL     706 

DO    220      J    =    1,3  SHEL    707 

220   C(I,J)    =    CM(I.J)  SHEL    708 

C  SHEL    709 

C  COMPUTE    DIRECTION    COSINE    MATRIX    TO   OF    LOCAL    ELEMENT    SYSTEM  SHEL    710 

C  SHEL     711 

CALL    ODCOS    (NTRI ,X,Y,Z,TO)  SHEL    712 

C  SHEL     713 

C      LOOP  OVER  IHE  NTRI  TRIANGLE  COMPONENTS  SHEL  714 

C  SHEL  715 

00    700      NT    =    l.NTRI  SHEL    716 

Nl    =    NT  SHEL     717 

N2    =     IPERMQ(Nl)  SHEL    718 

NC(  1)     =    Nl  SHEL    719 

NC(2)    =    N2  SHEL    720 

NC(3>    =    N3  SHEL     721 

MT    =    MIOP/2  SHEL     722 

NOD    =    3    +    MT  SHEL     723 

C  SHEL     724 

C  COMPUTE    DIRECTION    COSINES    OF     LOCAL    TRIANGLE     SYSTEM  SHEL     725 

C  AND    THE    TRIANGLE    PROJECTIONS    A,B    ONTO     IT  SHEL     726 

C  SHEL     727 

CALL    TOCOS    (N1,N2,N3,X,Y,Z ,A,B)  SHFL    728 

C  SHFL     729 
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120 

RH0(5,J)     =    0.25*(RH0(1, 

130 

IF    (NOST)       GO    TO    150 

DO    140        I     =     l.NTF 

DO    140       J     =    1 ,NTF 

140 

S(  I.J)    =      0. 

150 

IF    (SISM)       GO    TO    170 

DO    160       I    =     l.NTF 

160 

F( I)    =    0. 

170 

IF     (NOSM. OR. TRIG)       GO    T 

NEF1    =    NEF    ♦    1 

DO     180       L    =    NEF1 ,NTF 

M    ■=    L    -    1 

DO    180       1    =     1,M 

180 

R(L)     =    R(L)    -    S(I,L)*R( 

200 

DO    210       I    =     1,63 

210 

A( I)    =0. 

DO    220       I    =     1,3 

C  SET    UP     INPUTS    FUR     TRIANGLE:     SUBROUTINES 

c 

DO    240       I    *    1,3 

I    ■    NCI  I  ) 

LOCI  I)    «    NPF*IL-1 ) 

HMTI I )    =    HM  (L) 

HPT1 I)     =    HP(L) 

IF     (NOLO  )       GO    TO    240 

ROX    =    RHOIL.l ) 

ROY    =    RH0IL.2) 

ROZ    =    RH0IL.3) 

R01    =    Tll*ROX+T12*ROY+T13*ROZ 

R02    =    T21*ROX+T22*kOY+T23*ROZ 

R03    =    T31*ROX+T32*ROY+T33*ROZ 

HI    =    HWIL ) 

Pl(  I)     =    ROl'Hl 

P2( I )     =    R02*Hl 

P3( I)     =    R03*H1    +    P(L) 

TfcMP    =     TIL) 

TMOM    =    OTIL )*HP(L >**3/12. 

DO    230       J    =    1,3 

SMT(I.J)     =    SMIL, J)     -    CAIJ)*TEMP 
230    BMTII.J)     =    BM(L,J)     -    CA(J)*TMOM 
240    CONTINUE 
C 

C  FORM    TRANSFORMATIONS    BETWEEN    ELEMENT    AND    NODAL    SYSTEMS 

C 

LI    =    9*N1    -    8 

L2    =    9*N2    -    8 

CALL    TRFPRD     I  ID  I S.NEN , TD I S I  1, 1 ,N 1 ) , T DI S I  1 , 1 , N2 ) , TDI SI  1 , 1 ,  3 » ,  TDI , 
1TD2.TD3) 

IF     INPF.NE.3)  SHEL    760 

1CALL    TRFPRD    (  I  ROT ,NEN ,T ROT  I  1,1,N1), TROT! 1 , 1 , N2 ) , TROT  I  1,  1, 3 ) , TR1 , 
2TR2.TR3) 

DO    250       I     =    7,8 


SHEL 

730 

SHFI. 

731 

SHFL 

732 

SHFL 

733 

SHFL 

734 

SHFL 

73  5 

SHEL 

736 

SHEL 

73  7 

SHEL 

738 

SHEL 

739 

SHEL 

740 

SHEL 

741 

SHEL 

742 

SHEL 

743 

SHEL 

744 

SHEL 

74  5 

SHEL 

746 

SHEL 

74  7 

SHEL 

74  8 

SHEL 

749 

SHEL 

750 

SHEL 

751 

SHEL 

752 

SHEL 

753 

SHEL 

754 

SHEL 

755 

SHEL 

756 

SHEL 

757 

SHEL 

758 

TDKI+3)     =    TDKI  ) 

TDK  1+51-  =    TDI  (I  ) 

TD2I 1+3)     =    TD2I I ) 

250 

TD2I  1  +  5)     =    TD2  II  ) 

L0CI4)     =    NSF    +    NFM«(N2 

-1  1 

L0CI5)     =    NSF    ♦    NFM*(N1- 

-1  ) 

N4    =    L0CI4)     +    3 

C 

C 

N5    =    LOCI  5)    +    3 

** 

MEMBRANE    CONTRIBUTION 

c 

260    IF    (SISM)       GO    TO    320 

MEMBRANE    STIFFNESS    AND/OR    LOAD    VECTOR 

CALL    SLST     (MT.KKK) 

LT    =    0 

DO    300       JJ    =    1,N0D 

J    =    JJ    +    JJ 

M    =    L0C1JJ) 

LL    =    MFRIJJ) 

DO   300      L    =    1,LL 

M    =    M    +    1 


LT    «=    LT    +     1 

CI    =    TDI  ILT  ) 

C2    =    TD2ILT) 

IF     ISILD)       FIM)     =    FIM)    ♦    FTIJ-1)»C1    ♦ 

IF    (NOST)       GO    TO    300 

KT    =    0 

DO   290       II     =    l.JJ 

I    =    II    +    II 

KK    =    MFRI  II ) 

IF     (II.EO.JJ)       KK    =    L 

HI    «    ST (I-l.J-1  )*C1    ♦    STII-1,J)«C2 

H2    =    ST  II        ,J-1)*C1    ♦    ST  II        ,J)*C2 

N    =    LOC (II) 

N    =    LOC  (I  I ) 

DO    290      K    =    1 ,KK 

N    •=    N    ♦    1 

KT    =    KT    ♦     1 

SO    =     SIN.M)     +    TD1IKT)#H1     +    TD2(KT)*H2 

SIN.M)     =    SO 

290 

SIM.N)     =     SO 

300 

CONT INUE 

320 

CONT INUE 

400 

IF    (NPF.E0.3)       GO    TO    560 

C 

FT(J)*C2 
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PLATfc    BENOING    CONTRIBUTION 
IF     (SISM  )       GO    TO    600 

BENDING    STIFFNESS    AND/OR    LOAD    VECTOR 
CALL    SLCCT     (MT.KKO 
00    500       J J    ■     1,3 
JT    =    3*JJ-3 


J    «=    JT    +    1 

DO   450       L    =    1  ,NPF 

M    =    LOG (JJ)     ♦    L 

L3   ■=    L    -    3 

IF     (L3.GT.0 )       GO    TU    420 

C3   =    TD3( JT+L) 

IF     (SILO)       F(M)     =    F(MI     +    FT(J)*C3 

IF     ( SKMP)        GO    TO    4  50 

S4    =    S(M,N4  )    +    ST  (J,10)*C3 

S5    =    S(M,N5)    -    ST( J,ll)*C3 

GU    TO    430 

420 

CI    =    TRKJT+L3I 

C2    =    TR2UT+L3) 

IF    (SILO)       F(M)    =    F(M)     +    FT(J+1)*C1    +    FT(J+2)*C2 

IF     (SKMP  )       GO    TO    450 

S4   =    SIM.N4)     +    ST( J+1,10)*C1    +    ST( J  +  2,  10)*C2 

S5    =    S(M,N5)    -    ST (J  +  l  ,  11 )*C  1    -    ST( J+2, 11 )*C2 

430 

S  (  M  ,  N4  )    =    S4 

S(N4,M)     =    S4 

S(M,N5)    =    S5 

S(N5,M)     =    S5 

450 

C0NT1N0E 

IF     (NOST  )       GO    TO    500 

DO   480       II     =     1 , JJ 

IT    =    3*11-3 

I    =    IT    +    1 

KK    =    NPF 

DO   480       L    =    1 ,NPF 

IF     (II  .EO.JJ )       KK    =    L 

M    =    LOC-UJ)    ♦    L 

L3    =    L    -    3 

IF    (L3.GT  .0)       GO    TO   460 

C3    =    TD3UT+L) 

Hi    =    ST(I        ,J  )»C3 

H2    =    ST  (1  +  1  ,J)*C3 

H3   =    ST(I+2,J)»C3 

GO    TO    470 

460 

CI    =    TRMJT+L3) 

C2    =    TR2UT+L3) 

HI    =    ST(I       ,J+1)*C1    ♦    ST ( I       ,J+2)*C2 

H2    =    ST  (1  +  1  ,J+1)*C1     +    ST( I+l, J+2)»C2 

H3   =    ST( 1+2, J  +  l  )»C1    ♦    ST (1+2, J  +  2)«C2 

4  70 

N    =    LOG (II ) 

DO   480      K    =    1,KK 

N    =    N    +    1 

K3   =    K    -    3 

Kl    =     IT    +    K 

K2   =    IT    +    K3 

IF     (K3.LE.0)        SO    =    S(N,M)     +    TD3(Kl)*Hl 

IF    (K3.GT.0)       SO    =    S(N,M)    +    TR1(K2)*H2    ♦    TR2(K2)*H3 

S(N.m)    =    SO 

480 

S(M,N)    =    SO 

500 

CONTINUE 

IF     (NOMP)        GO    TO    700 

IF     (NOLD  )       GO    TO    540 

F(N4)     =    F (N4)     +    FT(10) 

F(N5I     =    F(N5)    -    FT (11  ) 

540 

IF    (NOST)       GO    TO    700 

SIN4.N4)     ■=    S(N4,N4)     ♦    ST(10,10) 

SJN5.N5)     =    S(N5,N5)    +    ST(ll.ll) 

S(N4,N5)     =    S(N4,N5)     -    STdO.ll) 

S(N5,N4)     =     S(N4,N5) 

GO    TO    700 

560 

IF    (NOLD)       GO    TO    700 

FL    ■    (P3(l) +P3(2)+P3( 3) )»(A(3  )*B( 2 ) - A ( 2 )*B( 3) ) /12. 

JT    «    0 

DO    580       JJ    =    1,2 

DO    580    L=l  ,3 

JT=JT+1 

M    =     LOC(JJ)    ♦    L 

5  80 

F(M)     =    F (M)     ♦    FL*T03( JT) 

600 

CONT INUE 

700 

CONTINUE 
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IF    < SISM.0R.TRIG1       GO    TO    900 

CHECK    FOR    POSSIBLE     INTERNAL     STIFFNESS    SINGULARITY     (FLAT 
OR    NEARLY    FLAT    OUAUR 1  LATERAL    WHEN    NPF     =     3    OR    6 ) 
IF    ( (NPF.E0.5I.UR.NUST)       GU    TO    7  30 
DO    720       N    =     3,6,3 
IF    (NPF.NE.N)       GO    TO    720 
M    *    5*N 
Ml    «    H    -     1 
H2    =    M    -    2 

IF    ( S(M,M) .GT. <S(M1,M1)+S(M2,M2 ) >*1.0E-08)       GO    TO    720 
DO    710       I    =     l.NTF 
S(  1,M)     =    0. 


DEGREES    OF    FREEDOM 


710 

S(M,I  )    =    0. 

720 

CONTINUE 

c 

c 

CONDENSATION    OF     INTERNA 

c 

730 

NIF    =    NTF    -    NEF 

DO    800       N    =     l.NIF 

K    =    NTF    -    N 

L    =    K    +    1 

PIVOT    =    S(L,L) 

FL    =    F( L) 

IF    (PIVOT. LE.O. )       GO    TO 

F<  L)    =    F(L) /PIVOT 

DO    780       I     =    1,K 

G    =    S(I,L) 

IF     (G»       740,780,740 

740 

IF     (NOST )       GO    TO    770 
G    =    G/PIVOT 
S(  1,L)    =    G 
DO    760      J    =    I ,K 
SO    =       S(I,J>    -    G*S(L,J) 
S(I,J)     =    SO 

760 

S(  J,  I  ).  =    SO 

770 

Fill    =    F( I)    -    G*FL 

7  80 

CONTINUE 

800 

CONT INUE 

900 

RETURN 
END 

800 
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SUBROUTINE    OOCOS     (N,X,Y,Z,T) 

IMPLICIT    REAL*8     (A-H,0-Z) 

INTEGER    ISYSCR, I S YSLP , I SCRF  1 , I SC RF 2, I SCRF 3, I  SCR F4 , I SCRF7,  I SCRF8, 
1  ISCRF9 

COMHUN/ INOUT/ ISYSCR, IS YSLP, I SCRF 1,1 SCRF 2, I  SCR F3, I  SCR F4,  I  SCRF 7, 
1  ISCRF8.ISCRF9 

THIS    SUBROUTINE    COMPUTES    THE    DIRECTION    COSINES    OF    THE    LOCAL 
ELEMENT    SYSTEM    OF    A    OUAORI LATER AL     (N=4)    OR    SINGLE    TRIANGLE     (N=l) 

DIMENSION     X(l),     Y(l),     Z(l),     T<1> 
XI     =    X( 2  )+X (3)-X(N)-X(l ) 
Yl    =    Y( 2)+Y(3)-Y(N)-Y(l ) 

21  =  Z(2)+Z (3)-Z (N)-Z (  1  ) 
X2  «  XI 3)+X(N)-X( 1 )-X(2> 
Y2    =    Y( 3  )  +  Y(N)-Y(l )-Y(2  ) 

22  =  Z( 3)+Z(N)-Z (1 l-Z(2> 
SI    "    X1«*2+Y1*»2+Z1 «*2 

C      *    (X1*X2+Y1*Y2+Z1*Z2)/S1 

X2    =   H2    -  C*X1 

Y2    =    Y2    -    C»Y1 

Z2    =    Z2    -  C*Z1 

S1=0S0RT(S1) 

S2=DS0RT (X2«*2+Y2**2+Z2**2) 


SHEL    928 


XI  ■= 
Yl  «= 
21  - 
X2  = 
Y2  = 
Z2  = 
T(  1» 
T(2) 
T(3) 
T(4) 
T(5) 
Tt  6) 


Xl/Sl 
Yl/Sl 
Zl/Sl 
X2/S2 
Y2/S2 
Z2/S2 
'  XI 
»    X2 

•  Y1»Z2- 
«    Yl 

»    Y2 

•  Z1»X2- 


Y2*Z1 


Z2*X1 
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937 
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940 
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950 
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T  1  7>  « 

Zl 

T(8)  ■ 

12 

T«9)  » 

X1»Y2-X2*Y1 

RETURN 

END 
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SUBROUTINE    TOCOS     (Nl  ,N2 ,N3 , X , Y ,Z , A,  B > 

IMPLICIT    REAL'S     (A-H.O-Z) 

INTEGER    ISYSCRtlSYSLP t ISCRF 1, I SCRF2, I SCRF3 , I SCRr4, I SCRF7, I  SCRF 8, 
1ISCRF9 

COMMON/ I N0UT/1SYSCR, IS YSLP, I SCRF 1 , I SCRF2 , I SCRF3, I  SCR F4 , I SCRF 7, 
11SCRF8, ISCRF9 

THIS    SUBROUTINE    COMPUTES    THE    DIRECTION    COSINES    OF    THE    LOCAL 
SYSTEM    AND    THE     PROJECTED    DIMENSIONS    OF    A    TRIANGLE    COMPONENT 


SHEL    964 


COMMON 
EOUI  VAL 
1    <T23,T 
OIMENSI 
Al    =    X( 
Bl    =    Y( 
CI    =    Z( 
A  2    ■=     X( 
62    «=    Y( 
C2   =    ZI 
T31    =    B 
T32    =    C 
T33    =    A 
S=OSORT 
T31    =    T 
T32    =    T 
T33    =    T 
Til    =    T 
T13    =    T 
T12    =    T 
S=OSQRT 
Til    =    T 
T12    = 
T13    = 
T21    = 
T23    = 
T22    = 
AC  1)     = 
A(2)    = 
8(1)    = 
B<2I    = 
A(  3)    = 
B«  3)    = 
RETURN 
END 


/TRA 
ENCE 
2(3) 
ON 

Nl  >- 
Nl  >- 
Nl  )- 
N2)- 
N2)- 
N2>- 
1*C2 
1*A2 
1*B2 
(T31 
31/S 
32/S 
33/S 
33*T 
32»T 
31«T 
(Til 
11/S 
12/S 
13/S 
13*T 
12»T 
11*T 
-Til 
Til 
T21 
-T21 
-A(  1 
-B(l 


Tl (3)  ,T2 (3 ),T3(3>,    T(9) 
,T1),(T12,T 1(2)1, ( T13.TK  3) ) , ( T21 , T2 ) , ( T22 , T2I 2 ) ) 
1,T3),(T32,T3(2)I,(T33,T3(3)) 

Yd  ),     Z  (1),     All),     Bill 


NSF/ 

(Til 
)  ,(T3 
X(  1  ), 
X  (N3) 
Y(N3) 
Z(N3) 
X(N3) 
Y(N3) 
Z(N3) 
-B2*C1 
-C2*A1 
-A2»B1 
»»2+T32«»2+T33**2) 


(5  )-T32«T(8) 
(2)-T31»T(5) 
(8 l-T33*T<2) 
»«2+T12»»2*T13»*2 ) 


32-T12«T33 

31-T11*T32 

33-T13«T31 

»A2-T12»B2-T13*C2 

»A1+T12«B1+T13*C 1 

*A2+T22»B2+T23»C2 

»61-T22»B1-T23«C1 

)-A(2) 

)-B(2) 
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SUBROUTINE    TRFPRD     (M ,NEN ,01 , 02  ,03 ,P 1 , P2, P3 I 

IMPLICIT    REAL*8     (A-H.O-Z) 

INTEGER    1SYSCR.ISYSLP, ISCRF 1,1 SCRF2, I SCRF3 , I SCRF4, 1 SCRF7, ISCRF 8, 
1ISCRF9 

C0MM0N/IN0UT/ISYSCR,ISYSLP,ISCRF1,ISCRF2,1SCRF3,I SCRF 4 , 1 SCRF 7, 
11SCRF8, ISCRF9 

THIS    SUBROUTINE     GENERATES    THE    TRANSFORMATIONS    RELATING    A    LOCAL 
COMMON    /TRANSF/       Tl ( 3 ) ,T2 ( 3 ) , T 3 ( 3 ) ,     T(9) 


SHEL 1004 


SHEL 1009 
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SUBTRIANGLE  SYSTEM  TO  THE  NODAL  DIS/ROT  SYSTEMS  AT  ITS  3  CORNERS 

DIMENSION  PHI),  P2(1),P3(1),  01(1),  02(1),  03(1) 
EQUIVALENCE  (T11,T1),(T12,T1(2)),(T13,T1(3)),(T2  1,T2),( T22,T2( 2) ) , SHEL 10 11 
1  (T23.T2I3)), (T31 ,T3), (T32.T3I2 ) ), (T33.T3I 3) )  SHEL1012 


DO    300 

J    *     I  * 

K    *     1  < 

Pl(  I  )  = 

PKJ)  ■ 

P2(l)  • 

P2(J)  = 


I 

3 
6 

Till) 
Tl(  I  ) 
T2U  ) 
T2(  I  ) 


1.3 


SHEL1013 
SHEL1014 
SHEL1015 
SHEL1016 
SHEL1017 
SHEL1018 
SHEL1019 


C-33 


P3(  I  )    «    T3(I  J 

P3( J)    *    T3(  I ) 

IF    (NEN.NE.4)       GO 

TO    : 

CI    =    T(  I  I 

CJ    =    T( J) 

CK    =    T(K  ) 

IF     (M)        260,260,240 

:  "o 

IF     (M)        180,180,200 

180 

PHK)    =    Tl  (I  ) 
P2(K)     =    T2( 1 ) 
P3(K)     =    T3(I  ) 
GO    TO    300 

200 

CI    =    03U  ) 
CJ    =    03«J) 

CK    =    03(K) 

240 

Pl(  I)     =    Tll*01( I  ) 

+ 

T12*01( J) 

+ 

T13*Q1(K) 

Pl( J)    =    T11*02(I ) 

+ 

T12*Q2( J) 

+ 

T13*02(K) 

P2(  I)     =    T21*01( I ) 

+ 

T22»Q1(J) 

+ 

T23*01(K) 

P2( J)    =    T21*C2(l ) 

+ 

T22*02( J) 

4- 

T23*Q2(K) 

P3(I)     =    T31*01(I) 

+ 

T32*01( J) 

4- 

T33=01(K) 

P3(J)     =    T31*C2(I) 

+ 

Ti'2*02(   l) 

4- 

T33=Q2<K) 

260 

PHK)     =    T11*CI 

+ 

T12=C J 

♦ 

T13*CK 

P2(K)     =    T21*C1 

+ 

T22«CJ 

+ 

T23»CK 

P3(K)     =    T31»CI 

+ 

T32*CJ 

+ 

T33»CK 

300 

CONTINUE 

RETURN 

END 
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SUBROUTINE     SLST     (M.KKK) 

IMPLICIT    REAL»8     (A-H,0-Z) 

INTEGER    ISYSCR.ISVSLP.ISCRFl, I SC RF 2, I SCRF 3, ISCRF4, ISCRF7, ISCRF8, 
1  ISCRF9 

COMMON/1NOUT/ISYSCR,ISYSLP,ISCRF1,ISCRF2,ISCRF3, I  SCR F4, [ SCRF 7, 
1 ISCRF8.ISCRF9 

THIS    SUBROUTINE    FORMS    THE    PLANE    STRESS    STIFFNESS    MATRIX    ANO/OR 
THE    CONSISTENT     LOAO    VECTOR    OF     A    LINEAR     STRAIN    TRIANGLE     (LST)     WITH 
6,    5    OR    4    NODAL     POINTS,    OR    OF     A    CONSTANT    STRAIN    TRIANGLE     (CST). 
LINEAR    ELASTIC    ANISOTROPIC    MATERIAL 


»**-;«»**«»»»#*»     INPUTS       **«*«**** 
M 


V      9      *      9      *      * 


NUMBER    OF    MIDPOINTS     INCLUDED    AS    NODAL    POINTS     (M=3,2,l 
FOR    LST,    H  =  0    FOR    CST).    NOTE..    MIDPOINTS    4-5-6    ARE 
LOCATED    ON    THE     SIDES    2-3,     3-1    AND    1-2,     RESPECTIVELY. 

KKK  OPERATION    FLAG 

KKK    LE    0    =    FORM    STIFFNESS     MATRIX    AND    LOAD    VECTOR. 
KKK    GT    0    =    FORM    LOAD    VECTOR    ONLY. 

All), BID  1  =  1.  ..3         PROJECTIONS    OF    SIDES    2-3,     3-1    AND    1-2    ONTO 

X    AND    -Y,    RESPECTIVELY. 

C(I,J)  1=1. ..3,    J  =  1...3  PLANE     STRESS    MATERIAL    MATRIX. 

HO)  1=1.. .3  CORNER    THICKNESSES     (LINEAR    VARIATION    ASSUMED). 

PX(I)tPY(I)        1=1.. .3  CORNER    VALUES    OF     X-Y    COMPONENTS    OF    BODY    FORCES 

PER    UNIT     OF    ELEMENT    AREA    (LINEAR    VARIATION    ASSUMED). 

SMT(I,J)  1  =  1.  ..3,     J  =  1...3  INITIAL    MEMBRANE    STRESS    COMPONENTS 

SIG-XX     (J=l),     SIG-YY     (J=2)     AND     SIG-XY     (J=3    AT    THE 
CORNERS     1=1,2,3        (LINEAR    VARIATION    ASSUMED). 

****»»*»»«***»»    OUTPUTS    ****«****»****#* 

SKI, J)      1=1.  .NOF,  J=1..NDF   WITH  NDF  (NUMBER  OF  DOF )  =  6+2*M,  IS 
THE  ELEMENT  STIFFNESS  MATRIX  ASSUCIATED  WITH  THE  NODAL 
OISPLACEMtNT  ORDERING 

U(l  ),V( 1) ,U(2  ),V(2 ) ,U( 3),  VI3  +  M) 

WHERE  U(4),  ...  VI3+M),  IF  M  GT  0,  ARE  DEVIATIONS 
FROM  LINEARITY  AT  THE  MIDPOINTS  1...M. 

FT(I)       1=1. .NDF    CONSISTENT  NODAL  FORCE  VECTOR  ASSOCIATED 

WITH  THE  NODAL  DISPLACEMENT  ORDERING  DESCRIBED  ABOVE. 


SHEL1047 


SHEL1048 
SHEL1049 
SHEL1050 
SHEL1051 
SHEL1052 
SHEL 1053 
SHFL1054 
SHEL1055 
SHEL1056 
SHEL1057 
SHEL1058 
SHEL1059 
SHEL1060 
SHEL1061 
SHEL1062 
SHEL1063 
SHE  LI  06.4 
SHEL1065 
SHEL1066 
SHEL1067 
SHEL1068 
SHEL1069 
SHEL1070 
SHEL1071 
SHEL1072 
SHEL1073 
SHEL1074 
SHEL1075 
SHEL1076 
SHEL1077 
SHEL1078 
SHEL1079 
SHEL1080 
SHEL1081 
SHEL1082 
SHEL 1083 
SHEL1084 
SHEL 1085 
SHEL1086 
SHEL 1087 
SHEL1088 
SHEL 1089 
SHEL1090 
SHFL 1091 


C-34 


140 


COMMON    /TR1ARG/    A(3),B<3),     H(3),        HPT(3),     C(3,3),     SMT(3,3>, 
1    BMTI3.3),     FTI12),  PX < 3 ) , P Y ( 3 ) t P T ( 3 ) ,RM( 3  I  ,     ST(12,12) 

DIMENSION    0(3,3),     UA I  3  )  ,     0B(3),     A4  <  3  >  ,     B4(3),     IPERMI3), 
1    SXX( 3),SYY ( 3) t     SXYI3) 

6  QUI VALfcNCE     (SXX.SMT ), (SYY.SMr (4) > ,  (SXY.SMTI 7) ) 

LOGICAL    NOS 

OATA       IPERM    /2,3,1/ 

NOS    =     KKK.GT.O 

NOF    *    6    +    2*M 

AREA    «    A(3)*B<2)-A(2)*B<3) 

SOMH    *    H( 1 )+H(2)+H<3> 

HO    =    SUMH/3. 

IF    (HO)     500,500,140 

PXS    =    PX(1> «-PX(2)+PX(3) 

PYS    =    PY( 1 )+PY(2 )+PY<3) 

SXXH    =    0. 

SYYH    =    0. 

SXYH    =    0. 

DO    150       I    =    1,3 

CH    =     (SUMH+Hl I) )/24. 

SXXH    =     SXXH    +    CH-SXXU) 


150 


180 


SYYH 

=     SYYH     ♦    CH*SYY( I ) 

SXYH 

=     SXYH    +    CH*SXY( I > 

FAC    = 

HO/12. "AREA ) 

Cll    = 

C(l 

,1 )«FAC 

C22    = 

C(2 

,2  >*FAC 

C33   = 

C(3 

,  3)*FAC 

C12    = 

C(l 

,2 )*FAC 

C13   = 

Cll 

,3)*FAC 

C2  3   = 

C(2 

,3)*FAC 

DO   200      J 

=    1,3 

L    =    J 

♦    J 

FT(L- 

1)    = 

(PXS+PXI J) )»AREA/24. 

FT(L) 

= 

(PYS+PY (J ) )*AREA/24. 

IF    (NOS) 

GO    TO    200 

00    190     -1 

=     1,J 

K    =    I 

♦    I 

AA    = 

A(  I   )*A( J) 

BB   = 

B( I )*B( J) 

AB    = 

A(  I  ) 

*8  (J) 

( B( J)*SXXH+At J)*SXYH) 
(  At  J)*SYYH*B(  J)*SXYH) 


190 
200 

220 


24  0 


BA  =  B( I )«A(J) 
ABA  b  AB+BA 
ST(K-l.L-l)  =  C11«BB 
ST(K  ,L  )  =  C22*AA 
STIK-1 ,L  1  =  C12«BA 
ST(K  ,L-1 )  =  C12*AB 
CONT  INUE 

IF    (M)     350,350,220 
00    240       I     =    1,3 
A4<  1  )     =    4.»A( I) 
84(1)     =    4.«B(I ) 
J    =     IPERMd  ) 
K    =     IPERM(J) 
R    =    H( I )/H0 
0(1,1)    =    O.l+R/15. 
0(J,K)     =    O.l-R/60. 
0(K,J)     =»    O(J.K) 
DO    300       J    =     1,M 
Jl    =    1PERMU) 
J2    =    IPERM(Jl) 


C33*AA 
C33«BB 
C33«AB 
C33*BA 


C13*ABA 
C23*ABA 
C13*BH    ^ 
C13*BB    i 


C23*AA 
C23«AA 


L    • 

FX 
FY 
DO 
01 
02 


J  «■ 
=  0. 
*  0. 
250 


J    ♦    6 


N    = 
0(N,J1> 
0(N,J2 ) 


1,3 


250 


OA(N)     =    02«A4(J1 )*Q1*A4(J2) 

OB(N)     =    02*B4( J1)+01*B4( J2) 

FX    «    FX    -    CB(N)*SXX(N)-OA(N)«SXY(N) 

FY    =    FY    -    OA(N)*SYY(N)  -QB < N ) »SX Y (N ) 

FT(L-l)     =     (PXS-PX(J)  )*AREA/12.    +    FX«H0/2. 

FT(L)  =     (PYS-PY  1J  )  )*AREA/12 .     +    FY*H0/2. 

IF    (NOS)        GO    TO    300 

SUMQA    =    0A( 1 )*0A ( 2 )+0A (3) 

SUMOB    =    OBU  1+QBI2  )+QB<3> 

JM    c    J    ♦    3 

DO    290       I     =     1 ,JM 

K    *     I     ♦     I 

IF    ( I.GT.3)    GO    TO    260 

AA     =     A(  I  )*Sl'MQA 


SHFL1092 

SHf  L  1093 

SHFL1094 

SHf  I  1095 

SHFL1096' 

SHFL1097 

SHFL1098 

SHEL1099 

SHEL1100 

SHEL1101 

SHEL1102 

SHEL1103 

SHEL1 104 

SHEL1105 

SHEL1 106 

SHEL1107 

SHEL110B 

SHEL1109 

SHEL1110 

SHEL1111 

SHEL1112 

SHEL1113 

SHEL1114 

SHEL1115 

SHEL1116 

SHEL1117 

SHEL1 118 

SHEL1119 

SHEL1120 

SHEL1121 

SHEL1122 

SHEL1123 

SHEL1124 

SHEL1125 

SHEL1126 

SHEL1127 

SHEL1128 

SHEL1129 

SHEL1130 

SHEL1131 

SHEL1132 

SHEL1133 

SHEL1134 

SHEL1135 

SHEL1136 

SHEL1137 

SHEL1138 

SHEL1139 

SHEL1140 

SHEL1141 

SHEL1142 

SHEL1143 

SHEL11-44 

SHEL1145 

SHEL1146 

SHEL1147 

SHEL1148 

SHEL1149 

SHEL1150 

SHEL1151 

SHEL1152 

SHEL1153 

SHEL1154 

SHEL1155 

SHEL1156 

SHEL1157 

SHEL1158 

SHEL1159 

SHEL1160 

SHEL1161 

SHEL1162 

SHEL1163 

SHEL1164 

SHEL1165 

SHEL1166 

SHFL1167 

SHELl 168 

SHFL1169 

SHEL1170 

SHEL1171 


C-35 


AB    »    A(1)*SUM0B  SHr:L1172 

BA    «    B(  I  )*SUMOA  SHFL1173 

BB    »    B(I)*SUMQB  SHEL1174 

GO    TO    2BO  SHFL1175 

260    II    -     IPERMII-3)  SHEL1176 

12    «     IPERM( II)  SHEL1177 

AA    »    A4( 12  )«0A( 1 1 )+AA(  I  1  )*0*(  12 >  SHELllfB 

AB    »    AA(I2)*0B(I1  )  +  A4(  1 1 1  *0*i"(  12)  SHEL1179 

BA    »    BA(  12  )»QA  (II  )+BA(  I  1  )*QM  12)  SHEL1180 

BB    ■    BA(I2)*QB( I  1 )+BA(  II )*0B< 12)  SHEL1181 

280    ABA    =    AB+fcA  SHEL1182 

ST(K-1,L-1)     =    CU*BB    ♦   C33*AA    +    C13*ABA  SHEL1183 

ST(K       ,L        )    =    C22*AA    ♦    C33*HB    +    C23*ABA  SHEL118A 

ST(K-1,L       )     =    C12*BA    ♦   C33*AB    +    C13*BB    +    C23*AA  SHEL1185 

290    ST(K       ,L-1)    =    C12*AB    ♦    C33*-3A    +    C13*BB    +    C23*AA  SHEL1186 

300    CONTINUE  SHEL1187 

350   00   AOO       I     =    2, NDF  SHEL1188 

00    400       J    =     1,1  SHEL1189 

AOO    STU.J)    =     ST(J,I)  SHEL1190 

500    RETURN  SHEL1191 

END  SHEL1192 


SUBROUTINE    SLCCT     (M,KKK)  SHEL1193 
IMPLICIT    REAL*8     (A-H.O-Z) 

INTEGER    ISYSCRt ISVSLP,ISCRF1,I SC RF 2, I SCRF 3, I  SCR  FA, I SCRF7, I SCRF8, 
1ISCRF9 
COMMON/ IN OUT/ I SYSCR, ISYSLP, I SCRF 1 , I SCRF2, I SCRF3, I SCRFA, I SCRF7, 
I  ISCRF8.I SCRF9 

C  SHEL1194 

C  THIS    SUBROUTINE    FORMS    THE    PLATE    BENDING    STIFFNESS    AND/OR    THE  SHEL1195 

C  CONSISTENT    LOAD    VECTOR    OF    A    LINEAR    CURVATURE    COMPATIBLE    TRIANGLE  SHEL1196 

C  (LCCT)     WITH    6,     5,    A    OR    3    NOOAL    POINTS  SHEL1197 

C  SHEL1198 

C  SHEL1199 
£*•****«»*«*«««*    INPUTS       **«***»*»««»#*»»    SHEL1200 

C  SHEL1201 

C  K  NUMBER    OF    MIDPOINT    DEGREES    OF    FREEDOM    (M    =3,2,1,0).  SHEL1202 

C  NOTE..    MIDPOINTS    4-5-6     (IF     INCLUDED)     ARE    LOCATED    ON  SHEL1203 

C  SIDES    2-3,     3-1    AND    1-2,     RESPECTIVELY.  SHEL120A 

C  SHEL1205 

C  ^  KKK  OPERATION    FLAG  SHEL1206 

C  KKK    LE    0    =    FORM    STIFFNESS     MATRIX    AND    LOAD    VECTOR.  SHEL1207 

C  KKK    GT    0    =    FORM     LOAO    VECTOR    ONLY.  SHEL1208 

C  SHEL1209 

C      A(I),B(I)  1=1. ..3         PROJECTIONS    OF    SIDES    2-3,     3-1    AND    1-2    ONTO  SHEL1210 

C  X    AND    -Y,    RESPECTIVELY.  SHEL1211 

C  SHEL1212 

C         C(I,J)  1=1. ..3,    J=1...3  PLANE    STRESS    MATERIAL    MATRIX.  SHEL1213 

C  SHEL121A 
C             HID                    1=1.. .3          CORNER    THICKNESSES     (LINEAR    VARIATION    ASSUMED).    SHEL1215 

C  SHEL1216 

C  PT(1)  1=1.. .3         CORNER    VALUES    OF    LATERAL    DISTRIBUTED    LOAD  SHEL1217 

C  (LINEAR    VARIATION    ASSUMED).  SHEL'1218 

C  SHEL1219 

C  BMT(I.J)  1  =  1.. .3,     J=1...3  INITIAL    BENDING    MOMENT    COMPONENTS  SHEL1220 

C  MOM-XX     (J=l),    MOM-YY     (J=2)     ANO    MOM-XY     (J=3)     AT    THE  SHEL1221 

C  CORNERS    1=1.. .3       (LINEAR    VARIATION    ASSUMED).  SHEL1222 

C  SHEL1223 

C  SHEL122A 
£*********«***«*   OUTPUTS    ♦»**#»***»«**«*»    SHEL1225 

C  SHEL1226 

C  ST(I,J»  1=1.  .NDF,     J=1..NDF       WITH    NDF     (NUMBER    OF    DOF )     =    9+M,     IS  SHEL1227 

C  THE    ELEMENT     ST  I FFN6 SS    M AT R I X    ASSOCIATED    WITH    THE    NODAL  SHEL1228 

C  DISPLACEMENT    ORDERING  SHEL1229 

C  W(l  ),RX(1  )  ,RY(1  )  ,W(2 ) ,     ....     RY(3),RM(1),     ...    RM(M)  SHEL1230 

C  WHERE     RM(1),     ...    RM(M),     IF    M    GT    0,     ARE    MIDPOINT  SHEL1231 

C  DEVIATIONS    FROM    NORMAL    SLOPE     LINEARITY  SHEL1232 

C  SHEL1233 

C  FT(I)  1=1. .NDF  CONSISTENT    NODAL    FORCE    VECTOR    ASSOCIATED  SHEL123A 

C  WITH    THE    NODAL    DISPLACEMENT    ORDERING    DESCRIBED    ABOVE.  SHEL1235 

C  SHEL1236 

C  SHEL1237 

COMMON    /TRIARG/    A(3),B(3),     HMT(3),     H(3),       C(3,3),     SMT(3,3),  SHFL1238 

1    BMT(3,3),     FTI12),  PX ( 3 ) , P Y ( 3  )  , PT ( 3 ) , RM( 3  I ,    ST(12,12)  SHEL1239 

DIMENSION       P(21,12),     G  (  2  1  >  ,     0(3,6),    0B(3,6),     T(3),     U(3),     HT(3),  SHFL12A0 

1    TX(3),     TY(3),     1PERMO),     XM  (  3 , 3  )  ,     XM0I3)  SHEL12A1 

EQUIVALENCE     ( CM1 1  ,C ( 1  I ) , (CM  12 ,C ( 2 ) ) , ( CM1 3, C ( 3 ) ) , ( CM22, C ( 5 ) ) ,  SHEL12A2 

1    ICM23.C (6)  l,(CM33,C(9  )  )  SHEL1243 


C-36 


120 


LOGICAL    NDS,    FLAT 
DATA     JPbRM/2,3,1/ 
HO    *     <H(1 )*H(2)+H( 3) )/3. 
IF     (HO.LE.O.  )       GO    TO    1000 
NDF    ■    9    +    M 
NUS    =    KKK.GT.O 

FLAT     -     (H<  1  ).EQ.H(2) > .ANO. (H<2).E0.H< 3) > 
AREA    =    A(3)*B(2)-A(2)*B(3) 
FAC    *    H0**3'»AREA/864. 
PTF    =    AREA/6480. 
T(3)    =    1. 
00    150       I    =     1,3 
J    =     IPERM(I) 
K    =    IPERM( J ) 
X    =    A(  I)**2t-B(l  )»*2 
U(  I )     =    -(A(  I  )*A( J)+B(I  )*BIJ)  )/X 
X=DSORT(X) 
Y    ■=    2.*AREA/X 
HT(I)     =       2.*Y 
TX(I)     =       Y*A(I(/X 
TY( I  I     =    -Y*B< I  )/X 
Al    =    A( 1  (/AREA 
A2   =    AUJ/AREA 
Bl    =    B( I  )/AREA 
B2    =    B( JI/AREA 
0( 1,1  )  =    B1*B1 

0(2,1)  =    A1*A1 

0(3,1  >  =    2.*A1*B1 

0(1,1*3)     =    2.*B1*B2 
0(2,1+3)     =    2.*A1*A2 
0(3,1+3)     =    2.»(A1=B2+A2*B1 ) 
00    120       N    =     1,3 
XM(N.I)    =     BMT <N,I >«AREA/72. 
IF    (FLAT  )       GO    TO    150 
DO    140      N    =    1,3 
L    =     IPERMIN  ) 
T< 1)     =    H(N )/H0 
T(2)     =    H(L) /HO 
IF    ( T( 1) .GT.O.  ) 
CI    =    T(I  ) 
C2    =    T(J) 
C3    =    T(K) 
C4   =    C2+C3 
Cll    =    C1*C1 
C23    =    C2»C3 
C5    =    C4*(3.»C1+C4  ) 


140 
150 


XM(N, I  )    =    XM(N,I )/T( 1)**3 


C6   =    C5    ♦ 

OB(N,  I        ) 

0B(N,I+3) 

CONTINUE 

00   200       I 

J    =     I  PERM! I  1 

K    =     IPERM(J) 


6.*C11    -    2.»C23 
*C4*C4    -   4.«(C1 1+C23) 
(C1*(10.«C11-3.=C23)+C4*C5)/17.5 
(Cl*(Cll-2.*C23)*C4*C6)/35.0    -    1. 


2.0 


=    1,3 


II    * 

JJ    c 
KK    ' 
Al    = 
A2    = 
A3   = 
Bl    = 
B2   = 
B3    = 
Ul    = 
U2    = 
U3   = 
HI    = 
W2    = 
W3    = 
BIO 
B2D 
B3D 
AID 
A2D 
A3D 
C21 
C22 
C31 
C22 
C31 
C32 


3»I 
3*J 
3*K 
A(  I) 
A(J) 
A(K) 
B(  I  ) 
8(  J) 
BIK) 
U(  I) 
U(J) 
U(K) 
1.-U1 
1.-U2 
1.-U3 
=    Bl    ♦ 
=    B2    + 
=    B3    + 
=    Al    ♦ 
=    A2    + 
=    A3    ♦ 


Bl 

B2 

B3 

Al 

A2 

A3 

B1-B3*U3 

-B1D+B2*W2*B3»U3 
A1-A3*U3 

-B1D+B2*W2*B3*U? 
A1-A3*W3 
-A1D+A2*W2*A3*U? 


TXK) 

TX I JI-TXl K) 

TYCO 

TX  <  J)-TX(K) 

TVKI 

TY  t  J)-TY(V) 


SHEL1244 
SHFL1245 
SHE  LI  246 
SHH.I247 
SHFL124B 
SHEL1249 
SHFL1250* 
SHFL1251 
SHFL1252 
SHFL1253 
SHEL1254 
SHFL1255 
SHEL1256 
SHEL1257 
SHEL1258 
SHEL1259 

SHEL1261 

SHEL1262 

SHEL1263 

SHEL1264 

SHEL1265 

SHEL1266 

SHEL1267 

SHEL1268 

SHEL1269 

SHEL1270 

SHEL1271 

SHEL1272 

SHEL1273 

SHEL1274 

SHEL1275 

SHEL1276 

SHEL1277 

SHEL1278 

SHEL1279 

SHEL1280 

SHEL1281 

SHEL1282 

SHEL1283 

SHEL1284 

SHEL1285 

SHEL1286 

SHEL1287 

SHEL1288 

SHEL1289 

SHEL1290 

SHEL1291 

SHEL1292 

SHEL1293 

SHEL1294 

SHEL1295 

SHEL1296 

SHEL1297 

SHEL1298 

SHEL1299 

SHEL1300 

SHEL1301 

SHEL1302 

SHEL1303 

SHEL1304 

SHEL1305 

SHEL1306 

SHEL1307 

SHEL1308 

SHEL1309 

SHEL1310 

SHEL1311 

SHEL1312 

SHEL1313 

SHEL1314 

SHEL1315 

SHEL1316 

SHEL1317 

SHEL1318 

SHEL1319 

SHEL1320 

SHFL1321 

SHEL1 322 

SHEL1323 


C-37 


TXK  ) 

TX( I  )-TX(K) 

TY(<) 

TY ( I  )-TY(K) 

TX(  J) 

TX(  I  I 

TY(  J) 

TY  (  I  ) 


Cbl    =    b3*W3-B2 
C52    ■     fc20-B3*W3-Bt *U1 
C61     =     £3*W3-A2 
C62    *     A2D-A3*W3-A1*U1 
C81     =    ()3-B20-b2«U2 
C82    =     &10-B3+B1»W1 
C91     =    A3-A2(;-A2*U2 
C92    =     Ain-A3*A1*W1 
PI    =    PI (I )*PTF 
P2    =    PT CJ)*PTF 
P3    =    PT (K )*PTF 
U37    =     7.*U3 
W27    =    7.*W2 
W24    =    4.*W2 
U34    =    4.*U3 
CI    =    S4.+W27 
C2    =    54.+U37 
C3    =     15.+W24 
C4   =    39.+U37 
C5    =    39.+W27 
C6   =    15.+U34 
TXS    =    TX(J) *TX(K) 
T YS    =    TYCJ)+TY(K> 

FT1II-2)     =    6.*( (9C.+U37+W27 >*Pl+( 36.+U37+W24) *P2  + ( 36.+U34 
FT(II-l)     =     CC1*B2-C2*B3+7.*TX5 )*P1    ♦    (  C3*B2-C4*B3+4.  *TXS  + 
1     3.*TXCK))*P2    +     (Ci>*B2-C6*B3  +  4.*TXS+3.*TX  (J)  )  *P3 

FT ( III  =     <C1*A2-C2*A3+7.*TYS )*P1    +     < C3* A2-C4* A3+4. *T YS+ 

1     3.*TYC  K  ))*P2    +     <Ct>*A2-C6*A3  +  4.*TYS+3.*TY<  J)  )  *P3 
FTIK+91        =     (7.*<P1+P2)+4.*P3)*HTCK) 
XMO(I)     =     CXMC1.I  >*XM(2,I  )+XM (3,1 ) )/3. 
00    200       N    =     1 ,3 
L    =    6*( 1-1)     ♦    N 
Oil    =    0(N,  1  ) 

0 (N,J  ) 

0(N,K) 

OCN.I +  3) 

0(N,J+3> 

0  CN.K+3) 

=    023-033 

=    031-033 


022 

033 

012 

023 

031 

02333 

03133 

PCL 

P(  L 

P<lT 

PCL 

PCL 

P(  L 

PCL 

PCL 

PCL 

PC  L 

PCL 

PC  L 

PCL+3 

PC  L+3 

PCL+3 

PCL+3 

PCL+3 

PCL+3 

PCL+3 

PCL+3 

PCL+3 

PC  L+3 

PCL+3 

PC  L+3 


200 
300 


,11-21  =  6.*<-Qll+w2*033+U3*Q2333) 

,11-1)  =  C21*023*C22*Q33-B3D'012+B2L>*031 

,11        )  =  C31 *Q23+C32*033-A3D*O12+A20*031 

,JJ-2)  =  6.« (022+w3*Q2333> 

•JJ-ll  =  C51*02333+B3D«u22 

,JJ        I  =  C6l»Q2333+A30*Q22 

,KK-2)  =  6.*  U  .+1)2  1*033 

,KK-1 )  =  C8l»033 

,KK        )  =  C9l*Q33 

,1+9     )  «=  0. 

,J  +  9     )  =  HTIJX033 

,K+9     I  =  HT  <K  )*Q2333 

,11-2)  =  6.« <011+U3*Q3133) 

,11-1)  =  C2l»031 33-630=011 

•II        )  =  C3l»03133-A30»011 

•JJ-21  =  6.*<-Q22»Ul*Q33+W3*Q3133) 

,JJ-1)  =  C5l*Q31+C52*033+B3D*012-B10*Q23 

,JJ        )  =  C6l*031+C62*Q33+A30*O12-AlD*023 

,KK-2>  =  6.*C1.+W1 )*Q33 

,KK-1 )  =  C82*Q33 

,KK        )  =  C92*Q33 

,1+9     )  =  HT  CI  1*033 

,J+9     )  =  0. 

,K  +  9     )  =  HT IK  1*031 33 

PCN+18,11-2)  =  2.*CQ11+U3*Q12+W2*031) 

PCN+18,KK-1)  =  ( (610-B2n)*033+C82*023+C81*031 ) /3. 

PCN+18.KK        )  ■  ( ( A10-A20)*033+C92*023+C91*03l)/3. 

PCN+18.K  +  9     )  =  HT  (K  1*012/3.' 

DO    400       J    =  I ,NOF 

00  340       L    =  1,3 

1  I    «=    L 

KK    ■    L    +    18 
P3    "     PC  KK  ,J) 
G(KK)     =     0. 

00    340       N    ■»  1  ,3 
1     «     IP6RMIN) 
JJ    *     I  I     ♦     3 
PI     "     P(  I  I  ,J  > 
P2    «    PC  J J, J  I 
SUM    ■     <>l     +    P2    ♦    P? 


SHE  LI 324 
SHFL1325 
SHFL 1 326 
SHFL1327 
SHFL1 328 
SHF11329 
SHEL1 330 
SHFL1331 
SHFL1332 
SHEL1333 
SHEL1334 
SHEL1335 
SHEL1336 
SHEL1337 
SHEL1338 
SHEL1339 
SHEL1340 
SHEL1341 
SHEL1342 
SHEL1343 
SHEL1344 
SHEL1345 
SHEL1346 
-W27)*P3)SHEL1347 
SHEL1348 
SHEL1349 
SHEL1350 
SHEL1351 
SHEL1352 
SHEL1353 
SHEL1354 
SHEL1355 
SHEL1356 
SHEL1357 
SHEL1358 
SHEL1359 
SHEL1360 
SHEL1361 
SHEL1362 
SHEL1363 
SHEL1 364 
SHFL 1365 
SHEL1366 
SHEL 1367 
SHEL1368 
SHEL1369 
SHEL1 370 
SHEL1371 
SHEL1372 
SHEL1373 
SHEL1374 
SHEL1375 
SHEL1376 
SHEL137.7 
SHE  LI  378 
SHEL1379 
SHEL1380 
SHEL1381 
SHEL1382 
SHEL1383 
SHEL1384 
SHEL1385 
SHEL1386 
SHEL1387 
SHEL1388 
SHEL1389 
SHEL1390 
SHEL1391 
SHEL1 392 
"HFL1393 
SHEL1 394 
SHFL1395 
SHEL1 396 
SHEL 1397 
SHEL1 398 
SHEL 1399 
SHEL1400 
SHFL 1401 
SHFL1402 
SHFL 1403 
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Gl    «    SUM    +    PI  SHEL1404 

G2    =    SUM    +    P2  SHEL140  5 

G3   =    SUM    +    P3  SHEL1406 

IF    (FLAT)      GO   TO    320  SHEL1407 

Gl    =    Gl    +    06(N,1)*P1  +    QB(N,6)*P2    +    0B(N,5)*P3                                                        SHEL1408 

G2    =    G2    +   QB(N,6)*P1  +    OB(N,2)*P2    +    0B(N,4)*P3                                                       SHEL1409 

G3   =    G3    +    0B(N,5)*P1  +    QBIN,4)*P2    +    QB(N,3)*P3                                                       SHEL1410 

320    GUI)    =    Gl  SHEL1411 

G(JJ)    =   G2  SHEL1412 

G(KK)    =    G3    +   G(KK)  SHEL1413 

II    «    II    +    6  SHEL1414 

340    FT(J)    =    FT(J)    -    XM(N,L)*G1    -    XM(I,L)*G2    -    XM0(L)*G3  SHEL1415 

IF    (NOS)        GO    TO   400  SHEL1416 

00    360      N   =    1,19,3  SHEL1417 

Gl    =    G(N)  SHEL1418 

G2    =    G<N+1)  SHEL1419 

G3   =    GJN+2)  SHEL1420 

GIN)         =    CM11*G1    +    CM12*G2    +    CM13*G3  SHEL1421 

G(N+1)    =    CM12*G1    +   CM22«G2    +    CM23*G3  SHEL1422 

360    GJN+2)    =    CM13*G1    +    CM23*G2    +    CM33*G3  SHEL1423 

DO   390      I    =    l.J  SHEL1424 

X    =    0.  SHEL1425 

DO    380      N    =    1,21  SHEL1426 

380    X    =    X    ♦    G(N)*P(N,I)  SHEL1427 

X    =    X*FAC  SHEL1428 

STII.J)     =    X  SHEL1429 

390    STIJ.I)    =    X  SHEL1430 

400    CONTINUE  SHEL1431 

1000    RETURN  SHEL1432 

END  SHEL1433 


IBM  360/S70  CONTROL  STATEMENTS  FOR  EXECUTING  PROGRAM  AT  FHWA 


//R4UIBR1     JOB     (0118,FHRS).'MIKL0F»,CLASS-F,TIHE=10 
//SSAP    EXEC    PCH=SSAP,TIME=7 
//SSAP    EXEC    PGM*TEMPNAME,TIME=60 

//STEPLIB    DO    DSN*RS41.SSAP2,UN1T*2314,VOL*SER»FHRS01,D1SI>»SHR 
//FT03F001     00    SYS0UT  =  A,DCB«=(RECFH-UA,BLKSIZE  =  133) 
//FTI1F001    DD    DSN  =  tlFTlI,UNIT  =  SY5DA,DlSPMNEW, DELETE, DELETE), 
//       DCB«tRECFM=VBS,LRECL=2044,BLKSIZE=2048 ),SPACE=(CYL,!35,S)) 
//FT12F001     00    DSM-tCFTI2, UNI T  =  SYSD A,DI SP =1  NEW , DELETE, DELETE) , 
//       DCB*lRECFM=VBS,LRECL=4092,BLKSIZE=<.09b ),SPACE=(CYL, (35,51) 
//FT13F001    DD    DSN=£tFTl 3, UN  I T  =  SY5D A, DI SP  =  t NEW .DELETE .DELETE ) , 
//       DCB*{RECFM=VBS,LRECL=20  44,BLKSIZE=20«8 ),SPACE= (CYL,(35,5») 
//FT14F001     DD    DSN  =  £.tFTl«.,  UN IT= S YSD A, D I SP ={ NEW ,  DELETE,  DELETE  )  , 
//       DCB«=(RECFM=VBS,LRECL=2044,BlKSIZE=20<i8),SPACE  =  (CYL,(35,5)) 
//FT17F001     DD    D SN  =  C tFTl 7, UN  I T  =  5YSD A , D I SP « t NE W ,DELE TE .DELETE ) , 
//       DCB=(RECFM=VBS,LRECL^4092,BLKSIZE=409b),SPACE=(CYL,(35,51) 
//FT18F001    DD    DSN  =  t tFT 18 ,UN I T= SYSD A , Dl SP  =  t NEW  .DELE TE ,DEL ETE  )  , 
//       DCB=(RECFM=VBS,LRECL=84,BLKSIZE=42  4I,SPACE=(TRK,(50,20>) 
//FT19F001     DD    DSN  =  t EFT  19  ,UN I T  =  S YSO A , D ! 5P  =  < NEW , DEL E TE ,D ELE T E >  , 
//       0CB=(RECFH=VBS,LRECL=84,BLKSIZE=424),SPACE«=ITRK,{50,20) ) 
//FT01F001     DD    * 


DATA  DECK 
/* 
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IBM  360/370  CONTROL  STATEhENTS  FOR  CREATING  TEE  LOAD  MODULE  AT  FHWA 

//R4H1BR1    JOB    (011B,FHRSJ,  'MIKLOF' , CLA33»F,TIME"2 

//ASM!    EXEC    ASMFC,PARM.ASM«(L0A03 

//ASM.SVSGO    OD    0SNi&!iL0A08ET,UNIT«5YS0A, 

//    SPACE" (TRK, Ciwa, 103) ,DZSP« (MOD, PASS) 

//ASM.SYSIN    00    * 
~f~         Re  EQU         0 

I  Rl  EQU         1 

C5  R3  EOU         3 

5:  RBASf  ecu        ta 

£  R13  EQU         13 

Cq  Rt5  EQU         15 

H  ETOO  CSECT 

^  SAVE         tia,  12) » ,* 

D-  LR  R«JASE,R15 

Eq  USING    ET0DF,R8A3E 

►d  L»  R2.SAVEAREA 

§  ST  R13.4CR2) 

§  ST  R2,*(R13) 

Y>  LR  R13,R2 

S  I  R2,0(R13 

^  3TIMER    TASK,DINTVL"SIXTY 

fei  ST  R0,0(R21 

©  L  R13.a(Ri3) 

g  RETURN    (14,12) 

tq  SAVEAREA   OS  18F 

I  SIXTY  DC  C '01000000' 

JL_  END 

/* 

//ASM2    EXEC    ASMFC,PA*M.A3M»(L0A0) 

//ASM.SYSGO    00    0SN»&5LOAOSET,UMT«SYS0A, 

//    SPACE"  (TRK,,  (t00.10)),OISP«(KOO,PASS) 

//ASM.SYSIN  00 


. 

i 

R0 

EQU 

0 

Rl 

EQU 

1 

R2 

EQU 

2 

RBASE 

EQU 

12 

R13 

EQU 

13 

R15 

EQU 

15 

ET00F1 

CSEC1 
SAVE 
LR 
USINC 

(14, 12),,* 

R8»SS,P15 
ETOPPt.HBAS 

LA 

R2, SAVEAREA 

, 

ST 

R13,4(R2) 

<3 

ST 

R2,8(K13) 

s 

LR 

R13.S2 

L 

R2,2(«n 

s 

TTIMER  CANCEL 

H 

SR  6. 

6 

^ 

CR  3, 

6 

cc; 

8NE  CONT 

fq 

B  FINISH 

t-3 

CONT 

LA  6, 

26 

§ 

LR 

1,0 

£> 

MR  «, 

6 

to 

L 

6, CONSTl 

OR  0. 

6 

L 

fe, CONST? 

SR  6, 

1 

s 

FINISH 

ST  t>, 

0(R2) 

Cq 

L 

»13,4(R133 

RETURN  (14,12) 

SAVEAREA 

OS 

18F 

CONSTl 

OC 

p 'iae«2' 

C0NST2 

OC 

F '360000' 

i 

ENO 

ESTABLISH  ADDRESSABILITY 
AND  Tt-LL  TO  THE  ASSEM3LER 

CHAIN  CALLER"S  SAVE  AHEA  TO  MINE 
CHAIN  MY  SAVE  AREA  TO  CALLER"3 
ESTABLISH  NPW  SAVE  AREA 
PICK  UP  AOORESS  OF  PARAMETER  AREA 

R6i0 

TIME  ALL  ELAPSED? 

NO, CONTINUE  TO  COMPUTE 

YES, GO  TO  RETURN 

R6«#MICR0  SEC,  PER  TIM.  UNIT 

LOAD  Rl  FOR  MULTIPLICATION 

MICRO  SEC«TIM  IN  UNITS  X  26 

CONVERT  MICRO  TO  HUNDREDS 

SUBTRACT  TO  FINO  ELAPSED  TIME 

STORE  RESULT  IN  PARM  AREA 
RESTORE  CALLER"3  SAVE  AREA 
ANO  RETURN  TO  CALLER 

R6H0  TO  THE  FOURTH 
#HUNOREOS  SECS  IN  AN  HOUR 


/• 

//CLG  EXEC  F0RTGCL,PARM.F0RT«(30URCE,N0MAP,N0LIST), 
//   PARH.LKEQ«(maP,li:T) 
//F0RT.SY3IN  OD  » 


IBM  SOURCE  DECK 
/* 

//LKED.3Y3LM00  DO  0SN»R34i .33AP2, 
//   UNIT»23la,vOL«SER»PHRS01, 
//   DCB»BLKSIZE»1024, 
//   SPACE«(T»K,  (300,100(1) ,RLSE), 
//   DISP»(NM,KEEP) 
//LKED.3YSIN  00  • 

ENTRY  MAIN 

NAME  SSAP 
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To  compile  the  main  program  for  the  CDC  6400  machine,  the  unlabelled 
statements  (those  not  containing  an  SSAP  number  should  be  removed  and  the 
following  statements  inserted  in  their  sequence  locations. 


PROGRAM       SAP 2   (INPUT, OUTPUT, T APE 5=INPUT,    TAPE6=0UTPUT,TAPE1, 
1TAPE2,  TAPE2,  TAPE4 ,  TAPE?,  TAPE8) 

COMMON  /  EM  /  QQQ(2594) 

5   CALL  SECOND   (T(l)) 

READ   (3,100)        HED,NUMNP,NELTYP,LL,NF,NDYN 

WRITE (6,  200)        HED,NUMNP,NELTYP,  LL 


SSAP  1 

SSAP  2 

SSAP  9 

SSAP  18 

SSAP  19 

SSAP  21 


CALL  SECOND   (T(2)) 


SSAP     26 


REWIND  1 
REWIND  2 


SSAP     29 
SSAP     40 


READ   (5,1001)   NPAR 
WRITE   (1)  NPAR 

WRITE   (6,201)   NEQ,MBAND,NEQB,NBLOCK 
CALL  SECOND (T (2)) 

CALL  SECOND (T( 4)) 


SSAP  42 

SSAP  43 

SSAP  56 

SSAP  57 

SSAP  59 


CALL  SECOND (T( 5)) 


SSAP     71 


CALL  SECOND (T( 6)) 


SSAP     80 


CALL  SECOND (T (7)) 
DO  40  1=1,6 
40  T(I)=T(I+1)-T(I) 

WRITE   (6,203)    T 

WRITE   (6,200) 
WRITE   (6,2001) 

10  READ      (5,1000)   N,  (ID(N,I) ,1=1,6) ,X(N) ,Y(N) ,Z(N) ,KN,T(N) 
WRITE   (6,2002)   N,  (ID(N,I) ,1=1,6) ,X(N) ,Y(N),Z(N) ,KN,T(N) 


SSAP  96 
SSAP  97 
SSAP     98 

SSAP  100 

SSAP  129 
SSAP  130 

SSAP  132 
SSAP  132 
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WRITE   (6,2003)  SSAP  166 

WRITE   (6,2001)  SSAP  167 

WRITE(6,2005)    (N,  (ID(N,I) ,1=1,6) ,X(N) ,Y(N) ,Z(N) ,T(N),N=1,NUMNP)  SSAP   168 


WRITE ( 6,  2004 )    (N,  (ID (N, I),  1=1,6), N=l , NUMNP 
REWIND  8 
WRITE   (8)   ID 


SSAP  184 
SSAP  185 
SSAP  186 


REWIND  NT 
WRITE   (6,2002) 
300  READ( 5,1001)   N,L,R 
WRITE   (6,2001)   N,L,R 


SSAP  251 
SSAP  253 
SSAP  274 
SSAP  276 


WRITE   (NT)   B,TMASS 


SSAP  286 


WRITE   (NT)   B,TMASS 


SSAP  294 


WRITE   (6,2000)   N 


SSAP  304 


COMMON  /EM/  LRD,ND,LM(2592) 
EQUIVALENCE   (SS,ND) 


SSAP  311 
SSAP  312 


MB=SQRT(X) 


SSAP  316 


REWIND  3 
REWIND  4 


SSAP  322 
SSAP  323 


WRITE   (6,2000) 


SSAP  327 


READ   (5,1002)  (STR(I,L) ,1=1,4) 

50   WRITE   (6,2002)   L,(STR(I,L) ,1=1,4) 
WRITE   (8)   STR 


SSAP  329 
SSAP  330 
SSAP  331 


READ   (3)    ((B(I,L),I=1,NEQB),L=1,LL),(TMASS(I),I=1,NEQB) 
READ   (3)    ((B(I,L),I=K,NE2B),L=l,Ll),(TMASS(I),I=K,NE2B) 


SSAP  339 
SSAP  341 
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REWIND  7 
REWIND  2 
NA=7 


SSAP  544 
SSAP  345 
SSAP  346 


NA=2 


SSAP  549 


READ   (NA)  LRD,(SS(I)SI=1,LRD) 


SSAP  554 


DETERMINE  IF  STIFFNESS  IS  TO  BE  PLACED  ON  TAPE  7 


SSAP  571 


660  WRITE   (7)  LRD, (SS(I) ,I=1,LRD) 


SSAP  579 


WRITE   (4)    ( (A(I,J) ,I=ltNEQB) ,J=1,MBAND) t  ( (B(I,L) iI=KJNE2B)tL=liLL)SSAP  585 
WRITE   (4)    ((A(I)J)tI=K,NE2B)iJ=l9MBAND)t((B(I9L)3I=K9NE2B)iL=l9LL)SSAP  585 


REWIND  8 
READ   (8)  ID 


SSAP  401 
SSAP  402 


WRITE   (6,2005) 


SSAP  405 


WRITE   (6,2004)  N9  (L,  (D(I,L) ,I=lt6)9L=l,LL) 


SSAP  426 


N2=NT2 
N1=NT1 


SSAP  445 
SSAP  446 


WRITE   (6,116)   M,D 


SSAP  464 


READ   (8)   STR 


SSAP  608 


REWIND  5 

REWIND  2 
IF(NDYN.EQ.S)  READ   (2) 

READ   (2)   B 


SSAP  611 

SSAP  622 
SSAP  625 

SSAP  626 


REWIND  1 
READ   (1)   NPAR 


SSAP  659 
SSAP  641 
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WRITE   (2)  LRD3ND3(LM(I)3I=13ND)3((S(I3J)3I=13ND)3J=13ND)3 
1    ((P(I3J)3I=13ND)3J=134)3  (XM(I)3I=13ND) 

COMMON  /JUNK/LT3LH3L3SG(20)3    SIG(7)  3EXTRA(150) 


SSAP  662 
SSAP  663 

SSAP  668 


800  READ   (1)  ND3NS3(LM(I)3I=13ND)3((B(I3J)3I=13NS)3J=13ND)3 
1    ((T1(I3J)3I=13NS)3J=134) 


SSAP  685 
SSAP  686 


COMMON  /  JUNK  /  LT3LH3L3SIG(20) 
500  WRITE   (632002) 


TRUS       5 
TRUS     19 


WRITE  (632001) 

WRITE   (633002)  MM3L3SIG(1) 3SIG(2) 


TRUS     23 
TRUS     26 


WRITE   (632000)   NUME3NUMMAT 
WRITE   (632001) 

READ   (531001)   N3E(N)3THERM(N)3DEN(N)3AREA(N)3WT(N) 
10  WRITE   (632002)   N3E(N) 3TEERM(N) 3DEN(N) 3AREA(N) 3WT(N) 

READ   (531S03)   EMUL 
WRITE   (6 3 2003)   EMUL 

WRITE   (6 3 2005) 

100  READ   (531004)   M3II3JJ3MTYP3TEM3KK 

XL=SQRT(XL2) 

WRITE   (1)   ND3NS3(LM(l)3L=l3ND)3((ST(L3K)3L=l3NS)3K=l3ND)3 
1    ((TT(L3K)3L=13NS)3K=134) 

WRITE   (632004)   N3I3J3MTYPE3REFT,NDIF 


TRUS     48 
TRUS     49 

TRUS     51 
TRUS     52 

TRUS     56 
TRUS     57 

TRUS     60 

TRUS     63 

TRUS     78 

TRUS  127 
TRUS  128 

TRUS  132 


COMMON  /  JUNK  /  LT3LH3L3SIG(20) 
500  WRITE   (632002) 
WRITE   (632001) 

WRITE   (633002)   MM,L3  (SIG(I) 3I=1312) 
COMMON  /NEWB/  LC(4) 3T(333) 3JK(6) 3 MELT TP3DL3 MATT YP 


BEAM  4 

BEAM  18 

BEAM  22 

BEAM  25 

BEAM  44 
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WRITE   (6,2005)   NBEAM,NUMETP,NUMFIX,NUMMAT  BEAM     50 

WRITE   (6,2001)  BEAM     57 

READ   (5,1001)  N,E(N),G(N),RO(N)  BEAM     59 

WRITE  (6,2002)   N,E(N),G(N),RO(N)  BEAM     60 

WRITE   (6,2003)  BEAM     65 

READ   (5,1002)  N,  (COPROP(N,J) ,    J=l,6)  BEAM     67 

WRITE   (6,2013)  BEAM     70 

20  WRITE   (6,2004)   N,  (COPROP(N,J)  ,J=1,6)  BEAM     72 

READ   (5,1006)    ( (EMUL(I,J) ,J=1,4) ,1=1,3)  BEAM     77 

WRITE   (6,2006)    (  (EMUL(I,J)  ,J=1,4)  ,1=1,3)  BEAM     78 

WRITE   (6,2010)  BEAM     83 

READ   (5,1005)   N,  (SFT(N,J) ,J=1,12)  BEAM     85 

55   WRITE   (6,2011)  N, (SFT(N,J) ,J=1,12)  BEAM     86 

WRITE   (6,4000)  BEAM     91 

READ   (5,3000)   INEL,INI,INJ,INK,IMAT,IMEL,ILC,INELKI,INELKJ,INC  BEAM     94 

66  WRITE   (6,4003)   INEL  BEAM  104 

WRITE   (6,4001)   NEL,NI,NJ,NK,MATTYP,MELTYP,LC,NEKODI,NEKODJ  BEAM  124 

DL=SQRT(DX*DX+DY*DY+DZ*DZ)  BEAM  129 

75  WRITE   (6,4005)  NEL  BEAM  131 

UU=SQRT(UU)  BEAM  154 

WRITE   (6,4002)   INEL  BEAM  156 

IF   (ABS(DS-DL).GT.DL/100.)   GO  TO  80  BEAM  168 

IF   (ABS(TS(I,J)-T(I,J)).GT.ABS(T(I,J/100.)  GO  TO  80                                     BEAM  176 

WRITE   (1)  ND,NS,(LM(I),I=1,ND),((SA(I,J),I=1,NS),J=1,ND),  BEAM  222 

1    ((SF(I,J),I=1,NS),J=1,4)  BEAM  223 

COMMON/NEWB/  LC(4) ,T(3,3) ,JK(6) , MELT YP,DL, MATT YP  BEAM  285 

DO  5  1=1,144  BEAM  288 

5  S(I)=0  BEAM  289 
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DO  31  1-1,288 

31  SA(I)=0. 

DO  32  1=1,576 

32  ASA(I)=0. 


BEAM  376 
BEAM  377 

BEAM  392 
BEAM  393 


COMMON  /  JUNK  /  LT,LH,L,SIG(20)  SEEL        4 

500  WRITE   (6,2002)  SHEL     14 

WRITE   (6,2001)  SHEL     18 

WRITE   (6,3002)   MM, L,  (SIG(I) ,1=1,6)  SHEL     21 

WRITE   (6,2000)   MTYPE '  ,NU14EL ,NUMMAT  SHEL     60 

WRITE  (6,2001)  SHEL     64 

READ   (5,1000)   N,(C(I,N)I=1, 12)  SHEL     66 

10   WRITE   (6,2002)   N,  (C(I,N)I=3,12)  SHEL     67 

READ    (5,1002)    (  (TLO(I,J)  ,J=1,4)  ,1=1,5)  SHEL      71 

WRITE   (6,2006)  SHEL     72 

WRITE   (6,2007)    (J,  (TL0(I,J),I=1,5) ,J=1,4)  SHEL      73 

WRITE(6,2003)  SHEL      77 

100  READ   (5,1001)MM,IY,EL  SHEL      79 

WRITE   (6,2004)   NN,  (IX(I) ,1=1,6) ,NM(1) ,P(  1) ,T(  1) ,DT(  1)  SHEL   150 

WRITE   (1)   ND,NS,(LM(I),I=1,ND),((SA(I,J),I=1,NS),J=1,ND),  SHEL  167 

1    ((SF(I,J)I=1,NS),J=1,4)  SHEL   168 

440   WRITE   (6,2005)   MM  SHEL  171 

103  IF   (ABS(D)-ABS(A(J)))    105,105,108  SHEL  405 

CALL  TRFPRD   (IDIS,NEN,TDIS(L1) ,TDIS(L2) ,TDIS(19 ) ,TD1,TD2,TD3)  SHEL   759 

1CALL  TRFPRD   ( IROT, NEN, TROT ( LI ), TROT (L2) , TROT (19) tTRl,TR2,TR3)  SHEL   761 

51  =  SQRT   (SI)  SHEL  945 

52  =  SQRT   (X2**2+Y2**2+Z2**2)  SHEL  946 

S  =  SQRT   (T31**2+T32**2+T33**2)  SHEL  982 

T13  =  T32*T(2)-T31*T(5)  SHEL  988 

S  =  SQRT   (Tll**2+T12**2+T13**2)  SHEL  989 
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C  SHEL1005 

C       THIS  SUBROUTINE  GENERATES  THE  TRANSFORMATIONS  RELATING  A  LOCAL  SHEL1006 

DIMENSION     Pl(l)t    P2(l),    P3(l),    Ql(l),    Q2(l)t    Q3(l)  SHEL1010 

X  =  SQRT(X)  SHEL1260 
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CONTROL  STATEMENTS  FOR  COMPILING  CDC  6400 


JOBCARD-NAME,  BN ,  CM77000,  T200. 

FTN(B=PUNCHB,0PT=2) 
789    (ALL  IN  COLUMN  ONE) 


OBJECT  DECK 


6789  (ALL  IN  COLUMN  ONE) 


CONTROL  STATEMENTS  FOR  DATA  INPUT  CDC  6400 


J0BCARD-NAME3  BN p  CM77000,  T200. 

LIBRARY  (SC0PE33) 

INPUT. 

789   (ALL  IN  COLUMN  ONE) 


BINARY  DECK 


789   (ALL  IN  COLUMN  ONE) 


DATA  DECK 


6789    (ALL  IN  COLUMN  ONE) 
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CONTROL  STATEMENTS  FOR  THE  HONEYWELL  6060  COMPUTER 


$       SNUMB 

82050 

$       I DENT 

85 15001, CHRIS 

$       USERID 

SYCSASWASP/DNM 

$       OPTION 

FORTRAN 

$       FORTY 

NLSTIN 

$       LIMITS 

,30K 

IBM  360/370  SOURCE  LISTING 


* 

GMAP 

NDECK.NLSTOU 

TTL 

ELAPSED  PROCESSOR  TIME  ROUTINE 

• 

THIS  SUBROUTINE  DETERMINES  ELAPSED  PROCESSOR  TIME  SINCE 

• 

START  OF  PROGRAM  EXECUTION;  TIME  IS  RETURNED  AS  NO.  OF 

* 

1/100  SECONDS  IN  INTEGER  FORMAT. 

QPLACE 

BSS 

1 

CONST1 

DEC 

640 

ETODF 

SAVE 

0,2,3,4,5,6,7 

LDXO 

2.1 

STXO 

QPLACE     SAVE  ADDR  OF  CALL  PARAM  TIME 

MME 

GELAPS     ELAPSED  TIME  IN  Q 

DIV 

CONST1     #  OF  1/100  SECS  IN  Q 

STQ 

QPLACE,* 

RETURN 

ETODF 

END 

EXECUTE 

LIMITS 

999.60K..20K 

FILE 

11.X1R.10L 

FILE 

12.X2R.10L 

FILE 

13.X3R.10L 

FILE 

14.X4R.10L 

FILE 

17.X5R.10L 

FILE 

18.X6R.10L 

FILE 

19,X7R,10L 

SYSOUT 

03 

DATA 

01 

DATA  DECK 

$ 

ENDJOB 

•••EOF 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 


Substitute  the  wain  program  listing  on  Pages  C-50  -C-51  in  place  of 
the  IBM  listing  on  Pages  C-2  and  C-3. 
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MAIN  PROGRAM  LISTING  FOR  THE  HONEYWELL  6060  COMPUTER 


900 


SSAP 

7 

SSAP 

S 

53AP 

10 

3SAP 

11 

SSAP 

IS 

SSAP 

13 

SSAP 

14 

SSAP 

15 

SSAP 

16 

SSAP 

17 

SSAP   20 


SSAP2  A  STATIC  ANALYSIS  PROGRAM  FOR  THREE-DIMENSIONAL  STRUCTURES  «S3AP 

REVISED  MARCH  1972  SSAP 

i   ••   ••   »*   *•   ••   **   **   *«   *•   •.   «.   .-   ••   .«   •  »   *»   *SSAP 

IMPLICIT  REAL*8  (A-H,0-2) 

INTEGER  I3YSCR,ISYSLP#ISCRF1,I3CRF2.I8CRP3,ISCRP4,ISCRP7,ISCRF6, 
1I3CRF9 

C0MM0N/IMnLiT/ISYSCR,ISYSLP,I3CRPl,ISC»F2iI3CRF3,ISCRP4,ISCRF7, 
lISCPFe,I3CRF9 

COMMON  /JUNK  /  HE0C12) ,JU«C210) 

COMMON  /ELPAR/  NPARC14) , NUMNP , MB AND , NEL TYP , N 1 , N2 , N3 i N4 , N5 , MTOT, NEOSS AP 

COMMON  /  EM  /  QQQC2596) 

DIMENSION  TC7) 

PROGRAM  CAPACITY  CONTROLLED  8Y  THE  FOLLOWING  TWO  STATEMENTS  ... 

COMMON  ACU003) 

MTOT«H000 


PROGRAM  CONTROL  DATA 

5  CALL  ETOOF(ITOD) 
TOD-ITOD 
T(l)«TOO*0.ai 

READ  CISYSCP,  103)  HEO.NUMNP.NELTYP  ,LL,NF,NDYN 
IF  (NUMNP.EQ.0)  STOP 
WRITE C IS YSLP, 2003  HED.NUMNP,NELTYP,LL 

INPUT  JOINT  DATA— ID  ARRAY  ON  TAPE  6 

Nl»l 

N2iNl*6*NUMNP 

N3»N2*NUMNP 

N4»N3+NUMNP 

N5»Nfl+NUMNP 

N6«N5*NUMNP 

IFfNfe.GT.MTQT)  CALL  ERROR  (N6-MT0T) 

CALL  INPUTJCA(Nl), A(N2),A(N3),ACN4),A(N5),NUMNP,NEQ) 

FORM  ELEMENT  3TIFFNESSE3--ST I»F .  ON  TAPE  2-STRESS  MATRIX 

CALL  ETOOF(ITOO) 

TOO«ITOD 

TC2)»TOO*0.01 

MBANO«a 

NUMEL«0 

REWIND  ISCSF1 

REWIND  I3CRF? 

DO  900  M«i,N£LTYP 

PEAOCISYSCR.  1301)  NPAR 

NRITE(ISCWFl)  "P»R 

NUMEL»NUMEL*NPAR(2) 

MTYPE«NPARtl) 

CALL  ELTYPE(MTYPE) 

CALL  ETODFCITPD) 

TOD«ITflO 

T(3)«TOO*0.31 

CONTINUE 


SSAP 

22 

SSAP 

23 

SSAP 

24 

SSAP 

25 

SSAP 

26 

SSAP 

27 

SSAP 

28 

SSAP 

29 

SSAP 

30 

SSAP 

31 

SSAP 

32 

SSAP 

33 

ON  TAPE1  SSAP 

34 

SSAP 

35 

SSAP 

37 

SSAP 

36 

SSAP      41 


INPUT  NODAL  LOADS  AND  JOINT  MASSES  ---  WRITE  ON  TAPE  3 

NEQB»(MT0T-U»LL)/CM6AND*LL*l)/3 

NBL0C««(NE3-1) /NEQS+1 

IP  (NEQP.GT.NEO)  NEQ9BNEU 

N3«N2*NEQ8«LL 

N4iN3+6*LL 

WRITE     (ISYSLP.201)     NEQ.MBAND.NEQB.NBI.OCK 

CALL  INL(AtNl) ,A(N?) ,A(N3) , A (N4) , NUMNP , NEOB , LL) 

CALL  ETODF(ITOO) 

TOD«ITOO 

T(4)»TOO*0,01        i 


SSAP 

44 

SSAP 

45 

SSAP 

46 

SSAP 

47 

SSAP 

46 

SSAP 

49 

SSAP 

50 

SSAP 

51 

SSAP 

52 

SSAP 

53 

SSAP 

54 

8SAP 

55 

SSAP   56 
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S3AP 

60 

SSAP 

61 

SSAP 

62 

SSAP 

63 

SSAP 

64 

SS»P 

65 

SSAP 

66 

SSAP 

67 

SSAP 

68 

SSAP 

69 

SSAP 

70 

C 

GO  TO  5 

c 

100  F0RMATC12A6/6I5) 

20'»  FORMATC1H1 ,l?Ab// 

.   28H   NUMBER  OF 

.   28H   NUMPER  OF 

,   28H   NUMBER  OF 

201  F0RMATC3ai?  TOTAL 

1       /34H   BANDW 

2       /3«H   NUM8E 

3       /3AH   NIJMBE 

203  FORMAT  (  J2H?nvER 

,           33H   NOD 

.           33H   FOR 

33*   INP 

r          33M   FOR 

.           33H   EOU 

.          33H   ELE 

.          33H   TOT 

NCDAL  POINTS  •  ,15// 
ELEMENT  TYPES  »  ,15// 
LOAD  CASES      >   ,15) 

NUMBER  OF  EQUATIONS       »,I5, 
1DTH  »,I5, 

R  OF  EQUATIONS  IN  A  SLOCK  ",1s, 
R  OF  BLOCKS  »,I5) 

ALL  COG  // 

AL  POINT  INPUT .F8.2// 

M  ELEMENT  STIFFNESSES ,F8.2// 

UT  NODAL  LOADS F8.2// 

M  TOTAL  STIFFNESS ,P6.2// 

ATION  SOLVING ,F8.2// 

MENT  STRESSES ,F6.2/// 

AL  SOLUTION  TIMfe ,  ,F8.2) 


SSAP 

72 

SSAP 

73 

SSAP 

7a 

SSAP 

75 

SS»P 

76 

SSAP 

77 

SSAP 

78 

SSAP 

79 

CALL  INL(A(Nn,»(N3),A(N3),A(N«),NUMNP,NE09,LU)  SSAP   58 

CALL  ETODFCITOD) 

TOO»ITOO 

Tt4)»TOD*3.01 

FORM  TOTAL  STIFFNESS  MATRIX  «  ON  TAPE  4 

NF2B«2»N£QB 

N2*N1*NEQB*MBAN0 

N3bN?*NEQ3*LL 

NO«N3+a*LL 

NN2»N1*NE?B*MBAN0 

NN3»nJN2*NE28*LL 

NNa«NN3*4«LL 

CALL  ADDSTF  (ACM),A(NN2) , A fNN3) , A (NH4) , NUMEL , N9L0CK , NE2B , LL, MB AND) 

CALL  ETODFCITOCO 

TOD»ITOO 

TC5)«TOD*0.01 

SOLVE  FOR  DISPLACEMENT  UNKNOWNS 

NSB« (M6ANO*LL)*NEQB 
NS^B«NEar»«LL*(?*CMB»NO-l)/NEQB) 
IF(NSbb.LT.NSB)  NS«e»NSB 
N4«N3*NSBB 

CALL  US0L(A(M),A(N3),ACN4),NEQB,MBAN0,LL,NPL0CKfNSB,0,3,7,2,2) 

CALL  ETODFCITOO) 

TODiITOD 

T(b)«TOD*3.01 

PRINT  DISPLACEMENT 

N2«N1*NUMNP*6 

N3»N2*6»LL 

CALL  PRINT0CA(Nn,ACNa),A(*3),NEaB,NUMNP,LL,NBL0CK,NEC,2) 

COMPUTE  STRESSES 

3f»  N2»N1*4*LL 
NS-'^NEQBoLI. 
LB»tMTOT-N3)/tNEQ*12) 
NDYN«0 
CALL  STRESS(A(Nl),A(N2),A(N3),NEQB,LB,LL,NEQ,NBLOCK 

CALL  ETOOF(ITOO) 

TOD»ITOD 

T(7)»TOD*0.01 

DO  40  Iil, 6  SSAP   97 

43  T(I)»T(I*l)-TCX)  SSAP   96 

Tf7)«TCn*TC2)+T(3)fTC4)*Tt5)»TC6)  SSAP   99 

WRITE  CISVSLP,203)  T 

SSAP  101 
SAPP  102 
SSAP  103 
SSAP  104 
SSAP  105 
SSAP  106 
SSAP  107 
SSAP  108 
SSAP  109 
SSAP  110 
SSAP  111 
SSAP  U2 
SSAP  113 
SSAP  114 
SSAP  H5 
SSAP  116 
SSAP  U7 
SSAP  118 
SSAP  119 
SSAP  120 
SSAP  121 
SSAP  122 
SSAP  123 


SSAP 

81 

SSAP 

82 

SSAP 

83 

SSAP 

84 

SSAP 

85 

SSAP 

86 

SSAP 

87 

SSAP 

88 

SSAP 

89 

SSAP 

90 

SSAP 

91 

SSAP 

92 

SSAP 

93 

SSAP 

94 

SSAP 

93 

1001  FORMAT  (1415) 
END 
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APPENDIX  E 
Selected  Construction  Drawings  of  Bridges  1  thru  4 

Page 

Bridge  #1  -  Elevation,  Profile,  and  Plan  E-  2 

Cross  Section,  Expansion,  and  Fixed  Bearings  E-  3 

Stringers  and  Diaphragm  Layout,  Cover  Plate  Detail  E-  4 

Piers  and  Foundation  Details  E-  5 

Bridge  #2  -  Elevation  E-  6 

Floor  Geometry  and  Beam  Layout  E-  7 

Cross  Section,  Diaphragm  Details  E-  8 

Girder  Details  E-  9 

Piers  and  Foundation  Details  E-10 

Bridge  #3  -  Elevation  and  Plan  E-ll 

Cross  Section  and  Slab  Details  E-12 

Piers  E-13 

Bridge  #4  -  Cross  Section,  Steel  Framing,  and  Bearings  E-14 


Henry  W.  Derthick,  Engineer  of  Structures,  Department  of  Highways, 
State  of  Tennessee,  furnished  reproducible  copies  of  the  bridge 
drawings  which  are  presented  in  miniaturized  form  in  this  Appendix 
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APPENDIX  F 

A  Refined  Quadrilateral  Element  for  Analysis  of  Plate  Bending 

1.  INTRODUCTION 

Several  texts  have  referred  to  and  restated  Dr.  Felippa's  paper 
concerning  the  stiffness  of  triangular  elements  in  bending  (18,19,21). 

The  author  prefers  to  excerpt  the  original  version  verbatim  in  this 
appendix  for  reference  to  a  discussion  concerning  the  tie-in  of 
program  statements  to  the  theory,  since  it  fits  so  well  with  the 
previous  discussion  on  the  SLST  subroutine.   Only  the  formula  numbers 
have  been  changed  in  keeping  with  the  format  of  this  report.   The 
discussion  is  in  Appendix  A. 

2.  EXCERPT 

Displacement  Interpolation  Functions 

The  nodal  displacement  degrees  of  freedom  which  are  to  bo  considered  in  the  stiffness 

matrix   of  the  complete  element  also  are  shown  in  Fig.   A-27a  .   These  include  the  transverse 

displacements    of    each    corner,    w.,    the    rotations    at    each  corner  about  the  x  and  y  axes, 

Q  .    and  Q   . ,    as    well   as    the  rotation  at  the  three  mid-side  nodes  about  an  axis  parallel  to 
^xi  uyi 

the  side,  6 .,  Qc  and  9 a.  In  order  to  develop  displacement  patterns  for  the  complete  triangle, 
displacement    interpolation    functions    were    assumed   independently    for   each    subtriangle. 

The  displacement  interpolation  functions  for  each  subelement  express  the  relationship 
between  the  displacements  w^  *  within  the  element  and  the  ten  displacement  components  of 
its  nodal  points    r        ,  as  follows: 

w(i)=      ^U)r(i)  (F-l) 

A.s  may  be  noted  in  Fig.   A-27b  .      The  nodal  displacement  vector   for    subelement   1  is: 

'(')T  ■  [  "«  3ct  Sy2   "3  *x3  0y3  "o  0xo  Syo   ^5   ]  CF-2) 


F-l 


\FFDL-TR-68-15Q 


\e  set  oi  10  cuuic  interpolation  fuiio lions  for  Subelement  x  may  be  expressed  in  triangular 
coordinates  as  follows: 


At) 


C  C3-2C  ■)+   6/t"'-{     £     £ 


(l) 


i      "2    "3 


£2<3-   2£2H       8X^    CCa^ 

C2  (btj)£    -b{,)C  )+  (b(,)~b(,)X(,))  C    C    C 

^2        !      *3        3    'l  2  3         3^1-2'; 


1 


2        0) 


(l) 


(l) 


(I) 


II  ) 


««<"£,  S2C 


I    »2 
3 


(F-3) 


•vhere  the  subscripts  correspond  to  the  renumbered  nodes  of  the  subelement.  With  this 
convention,  the  interpolation  functions  for  subelements  2  and  3  are  the  same  as  Eq.  F-3, 
except  with  appropriately  changed  superscripts.  It  should  be  noted,  however,  that  the  nodal 
displacements  in  Eq.  F-2  are  identified  by  node  numbers  defined  for  the  complete  element 
assembly. 

Now  if  the  vector  T   of  all  nodal  displacements  of  the  complete  element  assembly  are 
written  in  the  sequence 


=  [  •■  s„  8y,  •«  3c2  ey2  «3e„0y3  e4  e,  es\»09xoeyo  ] 

■['T      i'oM 


(F-4) 


the  displacements  in  subelement  1  can  be  expressed 
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tfhere 


:tu 


The    submatrices 


is    similar   to        Eq.   F-3  ,   but   expanded   with  5  zeros  to  account  for  the  nodal 
vi- 
and   ft' '  represent  the  interpolation  functions  for  the  external  and 


displacements  not  associated  with  Element  1,  and  with  appropriate  rearrangement  of  terms 

,1"    and    ^i 
internal  nodal  displacements  respectively. 


♦ 


Expressing  the  displacements  in  the  other  subelements  similarly,  the  complete  system 
of  displacements  can  be  written: 


r    (•)  i 

w 

...(2) 


,(3) 


r*i" 

1  J')  i 
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lv 

i  +.WJ 
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Establishing  Internal  Compatibility 

Eq .  F-6  is  an  expression  of  the  cubic  displacement  patterns  developed  in  the  three 
subelements.  Because  of  the  common  displacements  imposed  at  the  nodes,  the  transverse 
displacements  of  two  adjacent  elements  are  identical  along  their  juncture  line.  However, 
their  normal  slopes  differ  between  the  nodes;  hence,  Eq.  F-6  does  not  represent  an 
internally  compatible  displacement  field.  To  establish  slope  compatibility  along  the  internal 
edges  of  the  subelements,  additional  nodes  7,  8,  and  9  were  located  at  the  mid -points  of 
these  edges,  as  shown  in  Fig.  A-27a.  The  normal  slope  was  computed  at  each  of  these  nodes 
in  each  subelement,  for  example 


/dw^\  u  Qu)  s  rb(.)ib(»)i  r.r.i 
\  an    1 7        ?        L   7    :  70  J  Un  J 


(F-7) 


where 


M) 
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is 


and 


b        is 

70 


3*o 


both   evaluated    at   node    7,  Similar 


<?n  7°  an 

expressions  can  be  developed  for  each  nodal  slope  in  each  subelement.  To  maintain  internal 
slope    compatibility,    it    is    necessary   to   match   the    nodal  slopes  in  adjacent  subelements, 


i.e.,  #_ 


(!) 


8 .,      ,   etc.    (where   the   negative    sign   results  from  the  convention  that  the 


positive  normal  is  directed  outward),  or  stating  all  three  compatibility  requirements  ton-ether: 
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Eq.   F-8     may  by  expressed  symbolically  as  follows:* 


[■i»."l  [£-]■* 


(F-9) 


Now    the    values    of   r     which  will    satisfy   these  compatibility  conditions  may  be  computed 
from     Eq.   F-9     ;  i.e. 


»-.' 


r    s   L  r 


(F-10) 


Finally,    introducing   the    compatibility   constraint  of    Eq.   F-10       into    Eq.   F-6     ,  the  fully 
compatible  displacement  field  in  the  three  sudelements  becomes: 
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Although  it  is  straightforward  in  concept,  the  derivation  of  the  compatible  interpolation 
functions  of  Eq .  F-ll  involves  long  algebraic  manipulations  and  is  a  tedious  operation. 
Explicit  expressions  for  these  functions  are  presented  on  Page  F-15  for  the  convenience 
of  the  reader. 

Internal  Curvature  Field 

In  order  to  define  the  stiffness  matrix  corresponding  with  the  derived  displacement 
field,  it  is  necessary  to  establish  the  curvatures  within  the  subelements.  The  most  convenient 
means  of  defining  the  curvature  distribution  is  by  means  of  appropriate  interpolation  functions; 
in  the  present  case  where  the  assumed  displacement  functions  are  cubic,  it  is  important  to 
note  that  the  curvature  must  vary  linearly  within  each  subelement.  Thus,  the  curvature 
field  can  be  expressed  as  the  product  of  linear  interpolation  functions  multiplied  by  curvature 
values  defined  at  the  corner  nodes. 


Within  any  subelement  "i,"  the  curvature        X       can  be  obtained  by  differentiation  of 
the  displacement  field,  thus 


(i) 
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where 


(i)_ 


3*2 
dZ<f> 


g'Xi) 


d  x  dy 


(F-13) 


Now  the  nodal  values  of  the  curvatures  in  subelement  "i"  maybe  determined  by  evaluating 

(M    ^ :_*-.     .u„„      ;*   «. ^„i     ♦,._     — ^  ^-* ^a       V     C'J 


'  at   corner  points;    thus,  if  the  nodal  curvatures  are  designated    Xn        and  the  nodal 

the  relationship  may  be  expressed 


values  of    T  are    T 
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(F-14) 


in  which,  for  example, 
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The  linear  curvature  variation  within  the  subelement  can  now  be  expressed  by  means  of  the 
linear  interpolation  functions     ^>      as  follows: 
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where  the  linear  interpolation  functions  are  merely  the  three  triangular  coordinates: 

It    is   of   interest   to   note   that   the    curvatures  in  the  three  subelemants  are  identical  at  the 
nodal  point  "O";  thus,  those  quantities  need  be  evaluated  only  onco. 
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Element  Stiffness 


The   strain  energy  due  to  bending  of  the  subelement  may  be  obtained  by  integrating  the 
product  of  the  moments  and  the  curvatures  over  the  area  of  the  element,  i.e. 


,( i )  I 


.*/>«"     X"^ 


(F-18) 


where  the  internal  moments  are  given  by 
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(•)     = 
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=  DX(i) 


(F-19) 


The  matrix  D  in  Eq .  F-19  represents  the  constitutive  relationship  for  the  element 
material.  For  a  plate  with  constant  material  properties  through  the  thickness  "h,"  this 
relationship  may  be  expressed 
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0     = 


^12       °I3 


C22      C23 


(SymnrO 


33 


(F-20) 


where  the  coefficients  C.  represent  the  elastic  properties.  Substituting     Eq.   F-14,F-16  and  F-19 
into      Eq .  F-18  leads  to 

u<n  .  i    rTT(i)T/  ?t0?    dA  T(i)r 
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is    the    stiffness    matrix    contribution   of  Subelement    "i"   expressed  in  terms  of  the  nodal 
Displacements    r    ,  and 
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r(i)  r(D 

G22  G23 


(Symm.) 


s3  3 


(F-23) 


If  the  material  properties  and  thickness  are  uniform  over  the  area  of  the  subelement,  the 
individual  terms  of  the  Matrix    G         become 


'J 


where    R    *     is  given  by 
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If  material  properties  or  thickness  of  the  element  vary  over  its  area,  it  is  recommended  to 
evaluate  the  intergral  of  Equation  29  numerically. 

It  will  be  noted  that  the  stiffness  matrix  of  the  complete  triangle  is  obtained  by  merely 
adding  the  contributions  of  the  three  subelements  because  they  are  all  expressed  in  terms 
of  the  same  set  of  nodal  coordinates.  Thus 


(I)  (2)  (3) 
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ELEMENT  STIFFNESS  INCLUDING  SHEAR  DISTORTION 


Assumed  Displacements 


The    basic    assumption    of    the    element    stiffness    analysis   presented  in  the  preceding 
paragraphs  is  the  Kirchhoff  hypothesis,  which  may  be  expressed  mathematically  as  follows: 

w  {  x  ,  y ,  z  }     =       w  (  x  ,  y  }     \ 
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dx 


y        t 


(F-26) 


-      dy  -^ 


F-7 


AFFDL~TR-S8-150 

This  assumption  imposes  the  condition  that  normals  to  the  undeformed  plate  mid-surface 
remain  undistorted  and  normal  to  the  deformed  mid-surface.  The  fact  that  they  remain 
normal  during  deformation  effectively  eliminates  shear  distortion  from  the  assumed  behavior, 
and  thus  leads  to  results  which  are  applicable  only  to  relatively  thin  plates.  The  theory 
can  be  extended  to  account  for  shear  distortion  in  an  approximate  way,  however,  by  adding 
a  simple  shear  distortion  mechanism  to  the  Kirchhoff  deformation  hypothesis. 

The  shear  distortion  mechanism  assumed  in  this  study  can  be  explained  conveniently  by 

reference    to    Fig.  F-la,   which  represents   a   cross-section  view  of  a  plate  element.  The 

rotation   of  the  cross-section  is  shown  to  depend  on  the  rotation  of  the  mid  -  surf  ac  e  -5^  plus 

dy 

an  additional  shear  distortion  p  which  is  assumed  to  be  a  simple  straight  line  rotation 
(uniform  shear  strain  through  the  thickness).  The  tctal  rotation  <p  x  thus  is  given  by 


4> 


4^  +  /3 
dy        H1 
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A  similar  assumption  is  made  along  the  other  axis,  thus 

To   define    this  "distribution   of  cross-section   rotations  through  the  element  field,  it  is 
)W    assumed   that   the    transverse  displacements  w(x,y)  are  given  by  the  compatible  inter- 
polation functions  defined  by  Eq.   F-ll    ,  for  each  subelement: 

-in  =   £(») 
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(a)     Definition  of  Mean  Shear  Distortion  (b)     Continuity  Requirement 

Fig.   F-l     Shear  Distortion  Geometry 
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In   addition,   it  is  assumed  that  the  shear  distortions  vary  linearly  over  the  entire  triangle- 


or  symbolically 
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Now  it  is   convenient  to  substitute  total  rotation  of  the  section  <£  for  the  slope  Q  in  the 
nodal  degrees  of  freedom  of    Eq.   F-29    .   Thus,  using  relationships  derived  from    Eq.   F-27 
and  F-28  ,  the  following  expressions  may  be  defined  for  each  corner  nodal  point: 
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while  for  a  typical  mid-side  node,  such  as  node  4: 


0<      =    4>a  ~   <£*,+£x2>-T  -(^y.+^ya,T 


(F-33) 


where   c„  =  a „/L„  and  s„  =  -b„/L„.  Similar  expressions  may  be  obtained  for  nodes  5  and  S 
by  cyclic  permutation  of  indices. 


Using  these  expressions,  the  interpolation  functions  for  displacement  in  each  subelement 


Equation  35  may  be  rewritten  as  follows: 


where 
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Interpol  o  Mon    functions  of     Eq  .    F-ll 
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and 
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in  which  the  subscripts  of  the  interpolation  functions  <fc  identify  their  nodal  displacement 
components.  Eqs.  F-30,F-31  and  F-34  define  completely  the  deformation  of  the  element, 
expressing  the  transverse  displacements  Eq.  F-34  in  terms  of  18  nodal  displacements, 
and    the    shearing  distortions    Eq .  F-30        in  terms   only  of  the  6  nodal  shear  distortions. 

Internal  Curvature  Field 


Where  shearing  distortions  are  included  in  the  displacement  field,  the  total  curvatures 
X*  which  define  the  normal  strain  distribution  depend  on  both  the  transverse  displacements 
and  the  shear  distortions  as  follows: 
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The  first  curvature  term  must  be  defined  separately  for  each  subelernent,  and  from     Eq .   F-34 
is  given  by: 
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where       T  is    given  by      Eq.   F-12     and   T '      has  an  equivalent  definition  in  terms  of 

<Mi )  — 

Y>       •        however,    the   second  curvature   term  in     Eq .  F-36       may  be  expressed  for  the 

entire  element,  i.e.: 
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applying  the  derivative  definitions  of  Eq  .   A- 10 5  to     Eq.   F-30„  Thus  substituting       Eq.   F-3  7 
and  F-38  into      Eq.   F-36  leads  to 
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Now  because  these  combined  curvatures  still  vary  linearly  within  the  subelements,  their 
distribution  can  be  expressed  in  terms  of  nodal  curvature  values  as  before;  i.e.  by  analogy 
withEq.    F-14   and  F-16: 
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Element  Stiffness 
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The  strain  energy  due  to  bending  deformations  may  be  expressed  in  terms  of  the  bending 
stiffness  matrix  by  analogy  with     Eq.   F-25  •' 
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in    which     q  ''•    is    exactly   as    in     Eq.   F-24.       An  additional  strain  energy  contribution  U 

3 

results  from  the  shear  distortion,  however,  which  is  given  as  follows: 

us     s  "J- /    °     ^dA  (F"45) 

2   •'a 

in  which  the  shearing  forces   Q    are 

°      *    [  Q*    ]  =      °s  *  (F"46) 

In  this  expression,  Ds  represents  the  shear  distortion  constitutive  relationship.  For  a 
plate  with  uniform  properties  through  the  thickness,  and  assuming  that  z  is  a  principal 
elastic  direction,  it  may  be  expressed: 

C44  C 


D,    •    I.    [  5M  ln  }  (F-47) 


in  which  C.  are  material  constants. 


introducing  Eqs .    F-47,F-46   and  F- 31  into  Eq.    F-45   leads   to 
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■a^    s7£ 


or 


U       =  -L    rT    K"    r  (F-48) 

s         2       s         ss    s 

where  K"    is  the  shear  stiffness  matrix.  In  the  case  where  material  properties  and  thickness 
are  uniform  over  the  element,  the  shear  stiffness  becomes 

K  "        =   h     [  °44    R     C<»5  R  1  (F-49) 

SS  LC45  *     C55  Rj 

In    which     R     is   given  by     Eq .   F-24.       For  nonuniform  thickness  or  material  properties, 
the  integral  should  be  evaluated  numerically. 

The    total    stiffness    is    obtained   finally  by   superposition   of  the   bending   and   shear 
contributions, 
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in  which  it  should  be  noted  that  the  bending  terms  must  be  computed  separately  for  each 
subelement  and  added,  whereas  the  shear  stiffness  term  K''  may  be  computed  for  the 
entire  element. 


Condensation  of  Shear  Distortion  Degrees  of  Freedom 

The  element  stiffness  matrix  of  Eq.  F-50     represents  the  element  force -displacement 
relationship,  which  may  be  expressed  as  follows: 
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in  which  K^c  =  K'  +  K"  .  A  total  of  18  degrees  of  freedom  are  included  in  this  re- 
lationship, 6  shear  distortion  components  r^  in  addition  to  the  12  basic  translation  and 
rotation  displacements  of  the  nodes.  At  this  point,  however,  it  should  be  noted  that  the 
shear  distortion  angle  ^3  need  not  be  continuous  between  adjacent  elements.  As  shown  in 
Fig.  F-lb,  the  total  rotation  <£  must  be  the  same  for  two  adjacent  elements  in  order  to 
satisfy  compatibility  conditions,  but  $  and  8  need  not  be  the  same.  Consequently,  the  shear 
distortion  degrees  of  freedom  are  not  needed  to  achieve  compatibility  and  they  may  be 
eliminated  from  the  element  by  static  condensation. 


As   a  result  of  the   condensation  process,   the  modified  element  stiffness  relationship 
becomes: 
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It  is  of  interest  to  note  that  the  degrees  of  freedom  of  this  reduced  element  stiffness  matrix 
are  exactly  equivalent  to  those  of  the  original  LCCT-12  element;  thus,  an  element  including 
this  shear  distortion  capability  can  easily  be  incorporated  into  existing  plate  bending  analysis 
programs  based  on  the  origin*!  element. 
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GENERAL  QUADRILATERAL  ELEMENT  Q-19 

Although  the  LCCT-12  element  employs  an  optimum  compatible  cubic  displacement 
field  and,  therefore,  will  yield  the  best  possible  results  for  a  given  triangular  element 
mesh  involving  compatible  cubic  displacements,  its  mid-point  nodes  are  a  somewhat  un- 
desirable feature.  They  tend  to  complicate  mesh  generation,  procedures,  increase  the  band 
width  of  the  assembled  equation  systems,  and  require  special  identification  in  the  development 
of  computer  programs.  To  overcome  these  disadvantages,  while  retaining  most  of  the 
flexibility  of  the  LCCT-12  element,  it  is  convenient  to  develop  a  special  version  of  the  element 
by  constraining  the  normal  slope  to  vary  linearly  along  one  side. 

Consider,  for  example,  Subelement  3  of  the  element  shown  in  Fig.   A-27a.     The  mid-side 
node   4   of  this    subelement   can  be    eliminated  by  introducing  the  condition  that  its  value  is 
the  average  of  the  corresponding  slopes  at  nodes  1  and  2, 

9<      -    *X4    C3    "    *y4    S3   -    <   ^^T^V^   )!T  (F"54) 

where  c„  and  s,,  are  the  same  as  in  Eq.  F-33  .  Using  this  condition,  the  displacement 
interpolation  expressions  in  Eq.  F-ll  can  be  reduced  to  only  11  components,  and  the 
stiffness  matrix  thus  reduced  accordingly. 

The  resulting  partially  constrained  element  is  designated  LCCT-11.  (Similar  con- 
straints must  be  applied  to  the  other  sides  to  develop  the  LCCT-10  and  LCCT-9  elements.) 
Four  LCCT-11  elements  may  then  be  assembled  into  the  Q-19  quandri lateral  having  no 
mid-side  nodes  on  the  exterior  edges  as  shown  in  Fig.  A-23.  Although  this  element  has 
19  degrees  of  freedom,  the  7  internal  degrees  of  freedom  of  the  assemblage  are  eliminated 
by  a  static  condensation  process  equivalent  to  Eq .  F-50  before  the  quadrilateral  is  as- 
sembled into  the  complete  structure.  Thus,  the  final  quadrilateral  has  only  12  degrees  of 
freedom,  corresponding  to  a  translation  and  two  rotations  at  each  node.  It  is  a  fully  com- 
patible element,  having  linear  variations  of  normal  slopes  along  all  exterior  edges. 

Also  it  should  be  noted  that  triangular  elements  including  shear  distortion  effects  can 
be  assembled  to  form  a  quadrilateral  element  in  a  similar  fashion.  In  this  case,  however, 
it  has  been  found  most  convenient  to  condense  the  shear  distortion  degrees  of  freedom  at  the 
quadrilateral  assemblage  level  rather  than  in  the  individual  triangles. 
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COMPATIBLE  DISPLACEMENT  FUNCTIONS 

For   subelement  3,    Eq.   F-ll        gives       w     =  ^>*3)  r        where  the  displacement  functions 
may  be  expressed:  . 

^(3)       ft  3)  ^(3)^(3)     ft,)    A(3)  A(3)    A{3)  A(3)    A(3)  A(3)  A(3)A(3) 

in  which  (in  terms  of  the  dimensions  and  coordinates  of  the  complete  element) : 

+  ^3  [3(be  X2  +  b3  M3-2b,^1+3(b3M3-b)5C2  +  (3b1-b2X2-2b3^3] 
+  ¥^t3(2b2   ""sVW     C2+3(b2-b3X3)C,+  (-3b2-blM,f2b3X3)  c3] 

£«•£[*<' WC.1-3"**.^  (i-  m2-x,)C3] 

^  ri^3[3{3fc;+b2+-b.X.^2^(b2M2-blX1)C-3(bl+-3b2-rb2^2)C1] 


r8*i 


fts)       4a   r^r   .   t,     ,  .z    ,cr     ,,i 


A(3)  -  r    2  1 

**.  -4rr£(3^3>] 

d*  3L2    L     3        *l       b3      J 

For  <£l3)    (i  =  1,2,3)  charge  all  b's  in  $t3)     to  a's. 
0y  i  #x  i 

Above  expressions  app)y  to  subelement  3,  where  £    >  £    ,   t     -  C3 

In  subelem.ents  1  (where  £>£„£>£)  and  in  subelement  2  (where  £  t  C  ,  t  >  t  )  permute 
cyclically  all  subscripts  and  superscripts  (1-2-3  p2rmutes  to  2-3-1  and  4~5-Sto  5-5-4}; 
for  example:  £j|{  =£,  2  [s<i  +  m3>  {£  +*< '  +  V  £3  +  0  "^3*  V  £,. 
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APPENDIX  G 
LST  Formulation  Used  in  Subroutine  SLST 


Hy,v 


+  x,u 


Note:  Node  Numbering 
differs  from  thesis. 


Nodal  Freedoms 


*u  =  [  V  V  V  V  V  U6  ] 
4  "  [  V  V2»  V  V  V  ^6  ] 


in  which 


Ui+3  =  Ui+3  "  -5(  Uj  +  V 

7i+3  =  Vi+3  "  *5(  Vj  +  V 
with  j  =  2,3,1  and  k  -  3,1,2  for  i  =  1,2,3  respectively. 


Displacement  Field  Assumption 


u 

s 

T 
*u 

V 

T 

[•] 


2x1      2x6  6x1 
where  the  shape  function  vector  is  (£j  ■  triangular  coordinates) 


6x1 


4V2 
«351 


T 


CST 

:i  _ 


LST      (deviation   from  CST) 

.1. 


G-l 


To  get  5-node  element  set  u. 


v-  =  0  (delete  last  column  of 


T    T 
q   ,  q  and  last  element  of  <$>) .   To  get  4-node  element  set 

u,  ■  u_  ■  v,  ■  v-  =  0,  etc. 
Strain-Displacement  Relations 

e 


H  -£- 


xy 


& 


i 


3x12 


±1 
& 


12x1 


where 


*1  "  2A 


In  matrix  form 


S32  +  452a3 
A5la3  +  ^Sja, 

4«2al  +  45la2 


*2" 


1_ 

2A 


A^3b2  +  4£2b3 
4^1b3  +  4?3b1 

4C2bl  +  4?lb2 


£      =      D  £ 


Stiffness  Matrix 


K  -  /   DT  C  D 


h  dA 


(C  s  stress-strain  matrix) 


/ 


— 

— 

Cll  C12  C13 

• 

*2 

• 

4l 

C22  C23 

• 

±1 

• 

♦l 

♦a 

C33 

^2 

< 

h  dA 
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Consider  a  typical  term  viz  (each  C   is  assumed  constant  over  A.) 


%    I 


t  <J>  4>  h  dA 
A  m  n 


i,j  -  1,2,3 
m,n  =  1,2 


Assuming  linear  thickness  variation  over  A: 
h  =  h^l  +   h2C2  +  h3C3 


=  ho  (r1?1  +  r2?2  +  r3C3) 


where 


and 


ri  =  hi/ho    (i  "  1'2'3) 


h  =  —  (h.  +  h„  +  h_)  =»  mean  thickness 
o   3   1    2    3 

Note  that  r  +  r  +  r  =  3. 

The  required  integration  formulas  over  the  triangle  are: 
f C.  dA  =  A/3 

{ ZAi    dA  =  A(l  +  6..)/12,    6    =  Kronecker  6 
K   i  J  !J         ij 


/  V.A  dA  - A  eijk/6° 


e...    =6ifi=j«k 
ljk 

=  3   if   i  =  j   5*  k  or 

i  ^  j    =  k  or 

i  -  k  +  j 

■  lif  i^J^k 


It  is  trivial  now  to  show  that  with  linearly-varying  h: 

f    0   (|)T  h   dA  =  ~r  PT  0  P     h     A  (m,n   =   1,2) 

J  .      m  n  ,  .  Z     m    "     n      o 


where 


4A 


al        a2        a3 

cl-.  3^  3.„        h£L~ 


Aa3     Aa2 


4a, 


al        a2        a3     4a2        4al 
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]>  =  similar  to  P_  ,  but  with  b's  instead  of  a's 
and 


£  - 


1__ 

60 


6  +  4r, 


Symmetric 


6-r2 
6  +  4r 


6  -  r. 


6  -  r. 


6  +  4r, 


If  the  triangle  has  constant  thickness  (r.  ■  r„  =  r.  =  1)  £ 
reduces  to  the  well  known  integration  weight  matrix: 


1_ 

12 


2  11 
12  1 
112 


Notes 


1.   The  node  freedom  vector  ^  is  actually  assembled  as: 


[ur  v^  u2,  v2,  • 


] 


i.e.  with  staggered  components  of  q   and  q 

2.    The  entries  of  the  CST  stiffness  (upper  6x6  of  K)  turn  out  to 

be  independent  of  r..  ,  r9,  r  and  are  only  affected  by  the  mean 

f       ,T 

thickness  h  .   For  instance,  the  upper  3x3  of  /  $,<!>,  h  dA  is 
o  J .    1  1 

A 


240A 


J  L 


6  +  4r, 


6  -  r. 


6  -  r. 


Symmetric 


6  +  4r   6  -  r 
6  +  4r, 


h 
q 

8A 


aial 


ala2 


a2a2 


Symmetric 


ala3 


a2a3 


a3a3 


in  which  the  fact  that  r.  +  r2  +  r.  =  3  has  been  used  to  reduce 
out  r  ,  r  ,  r  .   So  if  the  element  is  CST  (M  =  0)  there  is  no 
need  for  forming  0.   (Cards  SHEL  1140  to  1148) 
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